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Dziękuję Wam za owocną współpracę, proszę o Jeszcze! 
Juz dziś ponad połowa objętości TA pochodzi z nadesła¬ 
nych materiałów Nic nie stoi na przeszkodzie, by cała ga¬ 
zeta była kreowana przez jej czytelników Dotyczy to nte 
tylko konkursów Jeżeli napisałeś program, który zajmuje 
6 linii (albo 10, 100. czy nawet 1000), nlejrasuj się Przyślij 
go do nas. obejrzymy, a Jeśli Jest tego wart - wydrukujemy 
Każdy autor, którego dzieło Jest publikowane w TA otrzy¬ 
muje należne honorarium Jeżeli program nie pasuje do 
ram konkursów (S Unit, 6 strona), to kwota może być co 
najwyżej mniej okrągła 

Nie przysyłajcie programów przepisanych z Innych czaso¬ 
pism! Jest to bardzo poważny występek l wobec stosują¬ 
cych tego typu praktyki będziemy występować z całą 
surowością 

Wiele osób pyta: Jak pisać do TA? Oczywiście, przede 
wszystkim, z sensem. Nte stawiamy żadnych tematycznych 
ograniczeń Najwyżej oceniane są takie opracowania, które 
odkrywają przed czytelnikiem coś nowego Wątpię, czy ta¬ 
kim odkryciem może być fakt, ze Jeśli zmieniać sprytnie ko¬ 
lory na ekranie, to powstaje efekt tęczy 

Programy nabazgrane na świstku papieru dostają punkty 
karne Już na starcie. Czasem bawię się w Ich przepisywa¬ 
nie. lecz dużo chętniej sięgam po program nadesłany na ka¬ 
secie czy dyskietce Wtem wtedy, że się nie pomylę przy 
wklepywaniu l szybciej obejrzę końcowy rezultat. Najlepiej, 
gdy autor sam opisze swe dzieło l dołączy ten tekst również 
nagrany na nośniku. Tu Jednak zaczyna się horror... 

Niektórzy uważają, że nie warto się kśopotać polskimi li¬ 
terkami. Niestety, w gazecie to nie uchodzi. Więc siedzę nad 
tekstem, poprawiam... Czasem przysnę, pozostawiam błę¬ 
dy. Jeden z AUTORoW przyjął kuriozalną metodę: " A * ozna¬ 
cza u niego ta*, zaś "a" - ą. Zabawy z tym Jest co niemiara! 
Niektórzy przeginają w drugą stronę. Otrzymałem ostatnio 
tekst w fjrmacie IBM-owego edytora Chi-WrUer. Łażę teraz 
po znajomych, pożycz stary ChkWrUera, bo ml czytelnik do¬ 
godził! Nąjchętnle] witam teksty ASOl napisane na ATARI 
edytorem PB z Tajemnic lub PANTHER-em Jtrmy AYALON 
Jeteti IBM, to też ASCII z polskimi literami w dowolnym 
standardzie (nąjchętniej MmoriaJ. Nośnik na tyczenie od¬ 
syłamy. 

No. to do roboty! 
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Prezentowany poniżej program Jest rezydentnym ze¬ 
garem przeznaczonym dla użytkowników DOS-u 
1 COS-u. Po załadowaniu zegara mozem przystąpić do 
ustawienia aktualnego czasu. 
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Znaczenie klawiszy: 

+, • wybór elementu do ustawiania 

-, m zwiększanie, zmniejszanie wartości (w przypadku se¬ 
kund - zerowanie) 

CONTROL/+ CONTROly* przemieszczanie zegara 
RETURN, ESC koniec ustawiania 

Od tej chwili Big Clock Jest uczulony na klawisze 
konsoli. Oto, Jak reaguje na ich naciśnięcie: 


S* 

M 

KB 




WX 


8TART/SELECT wyświetla aktualny czas (tak długo, jak kla¬ 
wisze są naciśnięte) 

SELECT/OPTION pozwala na ponowne ustawienie czasu 
START/8EUCC.T/OPTION/RESET usuwa zegar z pamięci 
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REM *-’ 

REM : Big Clock ver 1.2 

REM : by Hedges 

REM : (c) 1992 Tajemnice ATARI 

REM *-’ 

DATA fff£00805483a201b50c9d2580 
DATA bdc282950ccal0f32040802080 
DATA 80201582aec882acc9822042c6 
DATA 6c0a00202480adl£d0£020a200 
DATA 8e4£83ca8e5083207380b00320 
DATA 40804c8080a201bdd0829de702 
DATA caI0£760a201bd4c819d2202bd 
DATA 87819d2402bd2580950ccal0ec 
DATA 207380b00ba201bdc0829de702 
DATA cal0£760ade702cdd082ade802 
DATA edd!8260a201bd22029d4c81bd 
DATA 24029d8781cal0£la906acc482 
DATA aec582205ce4a907acc682aec7 


Zl 

W 

TC 

HX 

TE 
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1140 DATA 824c5ce4a2018e4£83bd30029d 
1150 DATA 518395cbbdcc829d5383cal0ef 
1160 DATA a000blcb290£d005200£82d0£5 
1170 DATA 981865cb8d4483a5cc69008d45 
1180 DATA 83blcb200f82c941f0l4c901d0 
1190 DATA £3blcbaa200£82blcb86cb85cc 
1200 DATA a000f0e3201181a200bdce829d 
1210 DATA 3 683bd53 83 9lcb200f82 9d3002 
1220 DATA e8e00290ea60a900aa9d5583e8 
1230 DATA e0dc90f860a201bd51839d5383 
1240 DATA 95cbcal0£5a0008c4£83£0a7£8 
1250 DATA a203bd4b831869019d4b83dd46 
1260 DATA 839008a9009d4b83cal0ead84c 
1270 DATA 4b81ad4f83d033a200b5cb48e8 
1280 DATA e00590£8adl£d0c904d01320a7 
1290 DATA 80208981adlfd0c904f0f6201d 
1300 DATA 814c7e81c901d003201582a204 
1310 DATA 6895cbcal0£a4c8681adce8285 
1320 DATA cbadc£8285cca91485ceac4a83 
1330 DATA a90285cfa6cfbd4b8320bd81c6 
1340 DATA c£3012a5c£48a98085c£a90a20 
1350 DATA ca816885c£4c9e816084cd4829 
1360 DATA 0f20ca81684a4a4a4a8ddl810a 
1370 DATA 0al86900186dca828de481adcb 
1380 DATA 8269008de581a200bde38191cb 
1390 DATA 48200982689Icb200982e8e005 
1400 DATA 90eca900ae5083e4c£d002a9££ 
1410 DATA 91cbc6cda4cd60981865cea860 
1420 DATA C8d002e6cc60a9008d508320a7 
1430 DATA 80208981ad£c02c9£££0£6a2ff 
1440 DATA 8e£c022083£9c91c£00ac90c£0 
1450 DATA 062046824cld82201d81a9££8d 
1460 DATA 508360a205ddf882f004cal0f8 
1470 DATA 608a0aaabdd2828d6482bdd382 
1480 DATA 8d6582ae50834c6382cal002a2 
1490 DATA 028e508360e8e00390f7a200f0 
1500 DATA £3e002£00dbd4b8318£86901d8 
1510 DATA dd46839002a9009d4b8360e002 
1520 DATA £0£6bd4b8338£8e901d810eebd 
1530 DATA 468338£8e901d8d0e4ae4a83ca 
1540 DATA e00790038e4a834cll81ae4a83 
1550 DATA e8e014b0£590£0000080248031 
1560 DATA 814e81e082£e82358355833184 
1570 DATA 66826£8278828£82a782b58200 
1580 DATA 0042696720436c6£636b20312e 
1590 DATA 3220696e7374616c6c65649b06 
1600 DATA 070e0f86877e6666667e78lSl8 
1610 DATA 187e7e067e607e7e061e067e66 
1620 DATA 667e06067e607e067e7e607e66 
1630 DATA 7e7e060606067e667e667e7e66 
1640 DATA 7e067e00l80018004b00000bti>b 
1650 DATA 0b0b0b0b0b0b0b000b01000024 
1660 DATA 60605007000000000000000000 
1670 DATA 003184ed84ade7028de002ade8 
1680 DATA 028del02a90085c£a90085d2a9 
1690 DATA 8085d3ade70285d4ade80285d5 
1700 DATA 38a5d2e5d485d0a5d3e5d585dl 
1710 DATA «000£0033866cfa5d2c931a5d3 
1720 DATA e98490016024c£70613025bld2 
1730 DATA 91d420el84aa£0e2c920£017c9 
1740 DATA 40f0ddc960f0d9290dc908f0d3 
1750 DATA 90418a291£c909£03abld2c8c9 
1760 DATA 00bld288e9809012bld2c8c932 
1770 DATA bld288e984b006a5d0a6dl9007 
1780 DATA 24c£30a5a900aa85d686d738bl 
1790 DATA d2e5d691d420el84bld2e5d74c 
1800 DATA d984bld291d420el844c6784e6 
1810 DATA d2d002e6d3e6d4d002e6d560e2 
1820 DATA 02e3023184 












Program ten ułatwia współpracę ze stacją dysków 
podczas pracy z BASICem. Umożliwia wykonanie 
podstawowych operacji takich jak: zabezpieczenie 
i odbezpieczenie plików, skasowanie plików, 
zmiana nazwy plików, katalog dysku. 


Forma wydawania rozkazów Jest następująca; 

DOS:REM xxx Jllenams 

gdzie xxx to trzyliterowy kod rozkazu, a Jllename to 
pełna nazwa pliku np 

D:DOWOL.ASM 

Oto kody rozkazów 

• LOK • Zabezpieczenie pliku (ów) 

• UNL Odbezpieczenie pliku (ów) 

• ERA Skasowanie pllku(ów) 

• REN - Zmiana nazwy - wymaga podania dwóch 
nazw plików oddzielonych od siebie przecinkiem 
(stara i nowa nazwa pliku) 

• D1R - Katalog dysku 

Dopuszczalne Jest podanie w nazwie pliku znaków 
? i • ,o Ile zezwala na to zastosowany DOS 

Program po wczytaniu relokuje się na granicę wolnej 
pamięci 1 podnosi Ją następnie ponad siebie, aby za ¬ 
bezpieczyć się przed skasowaniem Program Jest "rese 
toodporny*. a Jego dezaktywacja następuje po wykona 
niu "pustej" instrukcji DOS lub gdy format rozkazu Jest 
niewłaściwy. Podczas dezaktywacji programu przywra¬ 
cane są; poprzedni wektor przerwania RESET i o ile 
Jest to możliwe, poprzednia granica pamięci Granica 
pamięci nie zostaje obniżona w przypadku gdy przy 
aktywnym programie została ona zmieniona np. wczy¬ 
tany został XLFrlend lub inny program modyfikujący 
wskaźnik MEMLO 


Dariusz Żołna 


Z m 1000 rem *- * 

KL 1002 REM : BASIC DOS 

VB 1004 REM : autor: Dariusz Zolna 

XX 1006 REM : (c) 1992 Tajemnice ATARI 

JP 1008 REM *- * 

«X 1010 DATA ffff00883c8aa202a5092901f0 
m 1020 DATA 02a20cb5008d2288b5018d2388 
1 CO 1030 DATA ad62899500ad638995014c2488 
I QV 1040 DATA 202188a50a8d8089a50b8d8189 
1 t}8 1050 DATA ad6489850aad6589850bade702 

CC 1060 DATA 8d8289ade8028d8389ad66898d 
1070 DATA e702ad67898de80260a002bl8a 
AĆ 1080 DATA C90cb03da202a5092901f002a2 
CJ 1090 DATA 0cad22889500ad23889501ad80 
ŹB 1100 DATA 89850aad8189850bade702cd66 
SB 1110 DATA 89d014ade802cd6789d00cad82 
Si 1120 DATA 898de702ad83898de8026c0a00 
YV 1130 DATA a007bl8ad0bda200a008bl8add 
TG 1140 DATA 6a89d013c8bl8add6b89d00bc8 
| Al 1150 DATA bl8add6c89d0034cc388e8e8e8 
ilYR 1160 DATA e8e01190dc60e010b021bd6d89 
<SY 1170 DATA 8d7e89203c89ad7e899d4203a5 
PR 1180 DATA 8al8690c9d4403a58b69009d45 
1190 DATA 034c56e4203c89a9039d4203a5 
0V 1200 DATA 8al8690c9d4403a58b69009d45 
CR 1210 DATA 03a9069d4a03a9009d4b032056 
1220 DATA e410034c5e89ae7f89a9009d48 
B8 1230 DATA 038d48039d49038d4903a9059d 
1 OE 1240 DATA 42032056e410034c5e89a20b8e 
I BW 1250 DATA 4203a2002056e44cll89a210bd 
CA 1260 DATA 4003c9fff00al88a6910aae080 
AW 1270 DATA 90f0608e7f8960ae7f89a90c9d 
BB 1280 DATA 42034c56e44c53890021885188 
3LB 1290 DATA 848900004 c 4 f4b23554e4c2445 
Al 1300 DATA 52412152454e20444952060000 
1310 DATA 00000000a90085cfa90085d2a9 
1320 DATA 8885d3ade70285d48de002ade8 
RA 1330 DATA 0285d58del0238a5d2e5d485d0 
c| ;j 1340 DATA a5d3e5d585dla000f0033866cf 
D* 1350 DATA a5d2c984a5d3e98990036ce702 
ilOK 1360 DATA 24 cf70613025bld291d420308a 
PA 1370 DATA aaf0e0c920f017c940f0dbc960 
;lpy 1380 DATA f0d7290dc908f0dl90418a291f 
PT-; 1390 DATA C909f03abld2c8c900bld288e9 
fjgjg 1400 DATA 889012bld2c8c985bld288e989 
1410 DATA b006a5d0a6dl900724cf30a3a9 
1420 DATA 00aa85d686d738bld2e5d691d4 
Wę4i 1430 DATA 20308abld2e5d74c288abld291 
1440 DATA d420308a4cb489e6d2d002e6d3 
tm 1450 DATA e6d4d002e6d560e002el028489 
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Wyłoń punktów wprwijących bieżące ł ardiłwslne numery Tajemnic Atari. Drukiem pogrubionym aonucsono 
młejscm, w których można równocześnie nabyó winc oprogramowanie firmy LJC AYALON. 


DBZAJA 

Mlnwh t, C^dMWw 

UMNKXl« 

NMyu,cąmiffcw 

SCALAK 

NMP 39/41 Oaswocbcwe 

KLP SU*WUafcrmfcwy 
TurfMrUw, PwrtlMi IV/S 
CMak^wu 
MtCKOMAN 
PfcM w ytowe 31. Kafwłoa 
RjnMkAKjlMtfli 
PH HKRMbM, Ryfcuflt 
SUFgJtWAMŁgT, Srt* 
W#*r*bth|»łA 

KKYMARYS 

TanWstot*3,Kofc> 

TmImIcsm 

NAnkAKnki* 

EEnnWł 9MB» Kmnpmuwa* 
?«■»)* « łł, IjWb 


KOBER, Ontom 33*. LaMs 

KSIĘGARNIA TECHNICZNA 
NOT 

Kottusy Puyikta) 5*. Łóttt 

#TRACK# 

{ŁrrttMMtfa U, Opok 
»i%lą>i tl OyNe 
ARWAX 

W)nmlnMni lOpok 
P.H. METRO-kra* 

Rai*r*»ka H. PauMUl 

Księgsmi* Tcctrocau "DOM 
kslaZjct 

Paderewskiego 4. tcaaaA 
BAJT, ltojbuMi 33, Matni* 
OUU,ilnf«0i,laMa« 
BARTOK K tfeBwtt Ba»—W 
DO MAR 

BTTEDDOM, 

Fowwrafc* 7, Slapek 


SONIK Sjł. * 

Rfckhgo S. Sacartta 
PT Ci nłi »i, 8dwtn 
Rydla (Hattw »>, feaeda 
COMTCTERSHOP 
Boh. Wand tumy II, Sacwełmk 
BKLEPWIKLOBRANtoWY 
tutómm Maga 7 » Saaątaa 
KWANT A#»*j« HaaaBowa 
Żydowska 6, T ar a* * 
COMPtTKB CENTER "WAR 
Mawaalfcawalai tW» 

ATAKI STUDIO 
Cmrnli AknfcuM4W*num 
O.K.W. ELEKTRONIKA 
Mokotowska 5V$3, Wumm 
OSKAR, IpUWuiM, Wamwra 

DH ŁAPA -V 
Okw«ka37,Wta«ła» 


DOMAINSOrr 
Kołłątaja 31, Wrocław 

KSIĘGARNIA SurwnkjUa 
Żettinakkgo 16, Zadora Oór» 

GAMB SOFT 

IrwnaU 33, TltWm Ctora 

Zachęcamy wtaśddeh ddcpów 
nhuacacwaicjch aprasdatą aa- 
ktjo puma łub oprogramowania, 
do kontaktu t nacią firaą. Naj- 
uytazy kontakt teidbaacaoy pod 
numer Rjmzó* 374-71 wew 
274,275 w fodŁ 7 JO -15.00. Po¬ 
kładamy sieroto Modytoest lepl- 
nyt nrofraa&ów p n c Bw a on ydi 
dła rótaydk typów komputerów 
mi akcesoria* komputerowych. 
Oferujemy kanystar warunki 
w spó łpra c y. Firmy bądt sklepy 
xauMero»owaae kolportażem pt- 
aa otrzymują je m ra—dadt fco- 
mtaowych. a ponadto ich adruty 
będą co ouortąc drukowane 
w TA, ooalaaowłdobrąrtkłmaę. 


Oferujemy możliwość wysyłkowego zakupu niżej wymienionych akcesoriów 
komputerowych. Zamówienia (na kartach pocztowych) przyjmujemy pod 
adresem: L. K. AYALON skr. 46 38-100 STRZYŻÓW 


Do podanych cen należy doliczyć koszt wysyłki (20.000 zł). 
W przypadku zamówienia kilku akcesoriów kwota ta doliczana jest do 
ich wartości tylko raz. Jeżeli zdecydują się Państwo zakupić u nas 
równocześnie z akcesoriami oprogramowanie z oferty umieszczonej 
na ostatniej stronie pisma, koszt wysyłki nie jest doliczany do 
wartości zamówionego towaru. Zamówienia realizujemy drogą 
pocztową, należność uiszczana jest przy odbiorze przesyłki. Wszystkie 
ceny podane są w zł i ważne do ukazania się następnego numeru 


Tajemnic Atan. 

Dyskietki 5.25* 

zamawiana lość 10 20-40 50-100 

cena za sztukę 

No name DD 7200 6700 6300 

VERBAT1M COLORS DD 12200 11400 10700 

BASFDD 13000 12000 11300 

VERBATIM datalife + DD 15000 14000 13000 

Joysticki 

QUICKJOYII (auto fire, stylo blaszane) 115000 

QUICKSHOTII (auto fire, styki blaszane) 115000 

QUICKSHOTII plus (auto fire, mikrostyla) 160000 

Dyskietki czyszczące głowice w stacjach dysków 

5.25’ 50000 

3.5’ 50000 

Kaseta czyszcząco-rozmagnesowująca 

do magnetofonów 25000 

Filtry monitorowe siatkowe 

monochromatyczny, zachodni, 14 cali 150000 

mono/kolor 14 cali, zachodni 190000 

CONCETTO (mono/kolor, 14 cali, zachodni) 215000 


CONCETTO (mono/kolor, 14 cali, z uziemieniem, 
zachodni) 250000 

Ponadto 

"złodziejka antenowa" •• umożliwia podłączenie 

do telewizora anteny i komputera jednocześnie 35000 

Magie Clip uchwyt na fiszki do monitora 35000 

Dziurkacz do dyskietek (zezwolenie na zapis) 50000 

Pokrywy na komputery Atan 65/130/800 XE 50000 

Taśma barwiąca do drukarek STAR LC10/20 70000 

Złącze M1CROPRINT umożliwiające 

podłączenie do Atan dowolnej drukarki - 190000 

Literatura 

Leksykon komputerowy dla początkujący cli (72 str.) 25000 

Słownik terminów i komunikatów komp. (72 str ) 25000 

Instrukga Atari 65 XE/130 XE (128 str.) 30000 

Atan Basic dla dzieci (102 str ) 30000 

Logo Atan 30000 

Poznajemy komputer Atan XL/XE (190 str ) 30000 

Podręcznik Atan XL/XE (110 str.) 30000 

Język maszynowy Alan XL/XE (156 str ) 30000 

Mac 65 (86 str.) 30000 

Bug 65 (42 str) 30000 

Opisy gier na małe ATARI 35000 

Języki Atan XL/XE (238 str ) 35000 

Mapa pamięci Atan XL/XE, 

Dyskowe systemy operacyjne (188 str ) 40000 

Poradnik użytkownika Atan XL/XE (178 str ) 40000 

Podstawy programowania w ATARI basie (170 str.) 45000 

Poradnik Programisty Atan (236 str .) 50000 

Atari basie 55000 

Atan logo (288 str ) 55000 
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Dziś rewia zegarów Ten szczególne umiłowany 
przez Was temat był przez nas traktowany dotąd po 
macoszemu. Z banalnej przyczyny: choć programów te¬ 
go typu przysyłacie wiele, tylko nieliczne są na tyle do¬ 
bre, by Je można było bez wstydu komuś pokazać. 


Główny grzech - to zabijanie DOS-u. Z niewiado¬ 
mych powodów użytkownicy magnetofonów nienawi¬ 
dzą DOS-u 1 zabijają go przez 


POKE 12,L;POKE 13,H:POKE 9,1 

W praktyce każdy program, w którym widzę tę magi¬ 
czną sekwencję rozkazów, leci natychmiast do kosza. 

Grzech drugi: wyświetlanie. Nadsyłane zegary prze¬ 
ważnie zasłaniają coś na ekranie lub same są przez 
coś zamazywane, mrugają podczas różnych operacji, 
ulegają metamorfozie w różnych trybach graficznych. 

Grzech trzeci: przeciążanie przerwań Większość ze¬ 
garów ma ambicję nigdy nie zamierać. Korzystają więc 
z bardzo mocnych przerwań - VBLKI lub DLI. Nieumie¬ 
jętne Ich użycie powoduje zakłócenia komunikacji 
z szybkimi urządzeniami WE/WY. np ze stacją dysków. 

Dziś prezentujemy garść czasomierzy nie dlatego, że 
są one całkiem wolne od usterek, lecz w nadziel, że 

wpłyną na postawę Ich przyszłych (lub niedoszłych) au¬ 
torów. 


1. Bargartan: Program modyfikuje Istniejącą DL, do¬ 
pisując kilka bajtów z przodu. Ponieważ jednak nie 
zmienia przy tym wskaźnika MEMHI może powodo¬ 
wać konflikty z Innymi programami. Zegar znika po 
wykonaniu rozkazu GRAPHICS, a pojawia się znów po 
RESET. To częsty błąd! Program na 6. stronie powi¬ 
nien umrzeć po RESET, robiąc miejsce dla swego na¬ 
stępcy. 

2. Marcin Kania: Zegar ustawia się przez SE- 
LECT/OPTION, START/SELECT1START/SELECT/OP- 
TION Wyświetla się na zastanym ekranie (także w try¬ 
bach Innych niż O, lecz wtedy trudniej go odeczytać). 
w dodatku w stałym miejscu pamięci, zamiast 
we wskazanym przez słowo 88. Zamazuje część ekra¬ 
nu, co jest nieraz dość kłopotliwe. Na szczęście RESET 
go zabija. 

3. Jacek Binkul: Niszczy łańcuch procedur inlcjali- 
zacyjnych wskazywany przez słowo 12. Oczywiście blo¬ 
kuje przy tym nieodwracalnie szóstą stronę. Można te¬ 
go uniknąć, wyrzucając "pokl" z wiersza 90. 


NG 1 REM 

WY 2 REM ZEGAR by BARGARIAN 
KR 3 REM COPYRAIGHT BY TAJEMNICE ATARI 
i m 4 REM 
KB 9 N>1536 

; IŁ 10 READ K:IF K<0 THEN GOTO 12 
KO 11 POKE N,K:N=N+l:GOTO 10 
KP 12 ? CHR$(125) 

I KF 13 ? "Podaj która jest godzina “;:INPU 


T GOD 

14 ? "-1- minuta ";:INPU 

HP T MIN 

DE 15 ? “-1-sekunda ";: INPU 

* T SEK 


IW 16 REM 

||b» 24 POKE 1784,INT(GOD/10)*16+(GOD-INT(G 

1*- OD/10)*10) 

KV 26 POKE 1785,INT(MIN/10)*16+(MIN-INT(M 

: "U-i IN/10)*10) 

27 POKE 1786, INT(SEK/10) *16+(SEK-INT(S 
EK/10)*10) 

BP 28 REM 
«F 29 X“USR(1536) 

WY 30 DATA 104,165,12,141,24,6,165,13,141 
,25,6,32,27,6,76,92,228,32,27,6,32,92, 
228,32,32 

S6 31 DATA 78,96,173,49,2,133,204,173,48, 
2,56,233,3,141,48,2,133,203,160,0,185, 
201,6,145,203 

t$£ 32 DATA 200,192,6,208,246,160,33,173,4 

8,2,145,203,169,6,160,69,162,6,96,169, 
1,133,9,169,17 

33 DATA 133,12,169,6,133,13,206,251,6, 
l||p 208,67,169,50,141,251,6,248,173,250,6, 
24,105,1,141,250 

M§p 34 DATA 6,201,96,208,14,169,0,141,250, 
Ul 6,173,249,6,24,105,1,141,249,6,173,249 
,6,201,96,208 

BO 35 DATA 14,169,0,141,249,6,173,248,6,2 
4,105,1,141,248,6,173,248,6,201,36,208 
,5,169,0,141 

W 36 DATA 248,6,216,216,160,0,173,248,6, 
32,177,6,173,249,6,32,177,6,173,250,6, 
32,177,6,76 

QU 37 DATA 95,228,170,74,74,74,74,24,105, 
16,153,207,6,200,138,41,15,24,105,16,1 
53,207,6,200,200 

« 38 DATA 96,112,64,66,207,6,32,0,0,26,0 

,0,26,0,0,0,0,0,0,0,0,0,0,0,0 
Kft 39 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0»0# 
0,0,0,0,0,0,0,0,35,89,80,50,-1 



iiteWiSZriftfHWZt <JX0\'OADQ , W s $ ! $‘ 


6 


acu n os zi * ai: * a 1 






■i 




taje 




^ąg>ta*JA«4S,^, *&>, 2.<tXóQD 'W%)ÓFC*!, I VO 



'<p'»0r's/&z ‘ Ku&ianfian jm nkojsw^ 


£$£>1 10000 FOR 1=1536 TO 1788:READ A:POKE I 
,A:NEXT I:I=USR(1779):POKE 206,50:RETU 
RM 

KI 10010 DATA 198,205,165,205,201,0,208,4 
^ ,169,10,133,205,198,206,165,206,240,3, 

; 76,169,6 

10020 DATA 169,50,133,206,238,141,1,16 
^ 9,10,205,141,1,208,100,169,0,141,141,1 

,238,140 

C» 10030 DATA 1,169,6,205,140,1,208,85,16 
;r 9,0,141,140,1,238,138,1,169,10,205,138 

3&U ,1 

BU 10040 DATA 208,70,169,0,141,138,1,238, 
' 137,1,169,6,205,137,1,208,55,169,0,141 

£ ,137 

■:: m : 10050 DATA 1,173,142,1,201,1,240,43,23 

8,135,1,169,4,205,135,1,240,18,169,10, 

■ V 205 

10060 DATA 135,1,208,26,169,0,141,135, 
1,238,134,1,76,135,6,169,2,205,134,1,2 
08 

Tl 10070 DATA 8,169,0,141,135,1,141,134,1 
,173,143,1,201,0,208,24,160,0,24,185,1 
34 

iyML 10080 DATA 1,105,16,153,64,156,200,192 
‘ ,8,208,242,169,26,141,66,156,141,69,15 

■ "ifr* 6,76,98 

W 10090 DATA 228,173,31,208,201,0,208,6, 

• 141,141,1,141,140,1,174,142,1,240,6,16 
= 6,205 

8X 10100 DATA 224,10,208,198,162,1,142,14 
2,1,201,1,208,3,76,92,6,201,4,208,3,76 
«S 10110 DATA 55,6,206,142,1,173,143,1,24 
0,171,201,2,240,167,238,14j,1,160,0,18 
5,124 

I KB 10120 DATA 1,153,64,156,200,192,8,208, 
245,76,135,6,104,160,0,16*,0,169,7,76, 
92,228 


TB 

MO 

uv 


BU 

VI 


CJ 

KB 


BU 


BV 


JH 

VŁ 


HT 

WB 

OK 


EŁ 

KB 

DO 

ch 

m 

m - 

m 

BG 

m 

BU 

GO 

: XA ■- 

: BC :■ 

GG 

W 

NZ 

LA 

MO 

XB 
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2 REM ZEGAR Z BUDZIKIEM 
10 GH=1000:CZ=1536:M=0;P«0:K<«0:DIM A$( 
26),0DP$(1):GOSUB 900 

20 GRAPHICS 0:? "PODAJ GODZINY ":INPUT 
GODZ:? "PODAJ MINUTY ":INPUT MIN:? "P 
ODAJ SEKUNDY ":INPUT SEC 
30 IF GODZ>23 OR MIN>59 OR SEC>59 THEN 
GOSUB 100:GOTO 20 

40 POKE 1773,INT(GODZ/10):POKE 1772,GO 
DZ-INT(GODZ/10)*10:POKE 1770,INT(MIN/1 
0):POKE 1769,MIN-INT(MIN/10)* 10 
50 POKE 1767,INT(SEC/10):POKE 1766,SEC 
-INT(SEC/10)*10 

60 ? "USTAWIĆ BUDZIK (T/N] INPUT ODP 
$:IF ODP$="N" THEN POKE 1689,96:GOTO 9 
0 

70 ? "PODAJ GODZINY INPUT GODZ:? "PO 
DAJ MINUTY INPUT MIN:IF GODZ>23 OR M 
IN>59 THEN SEC=0:GOSUB 100:GOTO 70 
80 POKE 1777,INT(GODZ/10):POKE 1776,GO 
DZ-INT(GODZ/10)*10:POKE 1775,INT(MIN/1 
0):POKE 1774,MIN-INT(MIN/10)*10 
90 POKE 9,1:POKE 12 t l:P0KE 13,6:I=USR( 
1536):END 

100 CLOSE #1:? "ZLE PODAŁEŚ CZAS - ";G 

ODZ; " : ";MIN;":";SEC:? :OPEN #1,4,0,"K: 

”:GET #1,A:CLOSE #1:RETURN 

900 RESTORE GH:FOR 1=1 TO 19:READ A$ 

910 FOR J=1 TO LEN(A$) STEP 2 

920 M=ASC(A$(J))-48:M=(M-7*(M>9))*16:P 

=ASC(A$(J+l))-48:P=P-7*(P>9):POKE CZ+K 

,M+P:K=K+1:NEXT J:NEXT I 

930 RETURN 

1000 REM ZEGAR 

1010 DATA 68A9008DF306A001A200A90220 
1020 DATA 5CE4A018A206A9094C5CE4EEE6 
1030 DATA 06ADE606C90A9051A9008DE606 
1040 DATA EEE706ADE706C9069042A9008D 
1050 DATA E706EEE906ADE906C90A9033A9 
1060 DATA 008DE906EEEA06ADEA06C90690 
1070 DATA 24A9008DEA06EEEC06ADEC06CD 
1080 DATA F206 9014A9008DEC06EEED06AD 
1090 DATA ED06C9039005A9008DED06A90A 
1100 DATA 8DF206ADED06C9029005A9048D 
1110 DATA F206A9328D1A02A020A207BDE6 
1120 DATA 061869909158C8CA10F4ADED06 
1130 DATA CDF106D01DADEC06CDF006D015 
1140 DATA ADEA06CDEF06D00DADE906CDEE 
1150 DATA 06D005A9028DF306ADF306C900 
1160 DATA F012CEF406F00EA92F8D02D28D 
1170 DATA C802A9C88D63D260A9008D03D2 
1180 DATA 8DC802A9028DF4066000000A00 
1190 DATA 000A0000000000000A0002 
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Słowo "BATCH" wywodzi się z ery prehistorycznych 
komputerów które zajmowały wielkie, klimatyzowane 
hale 1 wymagały całego sztabu ludzi do obsługi. W łych 
czasach zwykły śmiertelnik nie był dopuszczany w po¬ 
bliże dostojnej maszyny - zadania do wykonania do¬ 
starczało się na kartach perforowanych. Taki plik kart 
opisujący kolejne polecenia użytkownika dla systemu 
nazywa się właśnie wsadem i po angielsku batch). Ten 
sposób pracy z komputerem nazywa się przetwarza¬ 
niem wsadowym, w przeciwieństwie do pracy Inter 
akcyjnej polegającej na bezpośrednim kontakcie czło¬ 
wieka z komputerem poprzez zestaw klawlatura/monl- 
tor. Raz uruchomiony wsad wykonuje żądane czynno¬ 
ści bez dalszej ingerencji operatora 

Zaletą przetwarzania wsadowego jest to, ze można 
uruchamiać te same lub podobne sekwencje poleceń 
korzystając ze stałego, raz przygotowanego Ich zesta 
wu. Typowym przykładem jest przenoszenie plików do 
RAM-dysku, np. przy pracy z @ul k Assembierem 

Powyższy Ustlng należy połączyć ze Zgrywusem-; (TA 
1/92). Po uruchomieniu zgrać go jako plik który odtąd 
będzie stałym nagłówkiem wszystkich wsadów Aby 
otrzymać gotowy "batch'. trzeba przygotować Jego tekst 
(dowolnym edytorem), a następnie połączyć go z MINI 
BATCHem za pomocą programu APPEND (TA 5/91). 


MINI-BATCH 

autor: J.B. Wi$niewski 
(c) 1992 Tajemnice ATARI 


i XiT 1000 REM * 

XC 1002 REM : 

P5P 1004 REM : 

XX 1006 REM : 

pip 1008 REM *- 

OV 1010 DATA f f f f009085 90a2 70bd4003 3007 
BO 1020 DATA bd4203c907f00a388ae910aad0 
ZB 1030 DATA ed6c0a00a9299d4403a9069d45 
Paro 1040 DATA 03ad0a069d4803a9009d490320 
BP 1050 DATA 56e4bc48038c0a06f04da99b99 
| XK 1060 DATA 2806a9009d48032056e410fbad 
BT 1070 DATA 2103 85d4 8d0e06ad2203 85d5 8d 
VŁ 1080 DATA 1306a00bbld4991d068810f8ae 
MC 1090 DATA 2306ac2406e8d001c88el9068c 
QT 1100 DATA Ia06a9ff8d2106a9058d2206a9 
| VN 1110 DATA Id8d2103a9068d2203600006lc 
I 'łt 1120 DATA 06a000b92906c88c0106c0d790 
■3K 1130 DATA 0aa0008c2103a0008c22034820 

UR 1140 DATA 00006860e002e3021c060090 


Program tego typu był Juz prezentowany w TA 1/92. 
MINI-BATCH pokazuje Inne podejście do tego zagad¬ 
nienia. Cały program mieści się na szóstej stronie, wli¬ 
czając w to 200-bajtowy bufor tekstu. Z doświadczenia 
wynika, że taka długość tekstu jest przeważnie wystar¬ 
czająca 


Janusz B. Wiśniewski 


Kilka lat temu użytkowników komputerów IBM ogranął 
szał Każdy, kto tylko zdołał kupić (lub skopiować od kolegi) 
grę pod tytułem "Sokoban", spędzał całe godzlhy próbując Ją 
przejść 1 zobaczyć upragniony napis CONGRATULATION 

Co sprawiało, ze gra posiadająca proste zasady 1 niezbyt za¬ 
chwycającą grafikę, potrafiła być az tak wciągająca? Tym czymś 
była wymagana od grającego konieczność logicznego myślenia 

Zasady gry. Jak Juz wspomnieliśmy, byty bardzo pro6te: lu¬ 
dzik poruszający się po labiryncie (zwanym magazynem) mu¬ 
siał poprzesuwać znajdujące się w nim paczki na wyznaczone 
miejsce Należało zrobić to dokładnie 1 ostrożnie, bowiem 
każdy nierozważny ruch mógł uniemożliwić wykonanie zada¬ 
nia 1 zniweczyć całą dotychczasową pracę 

O tym, jak wciągająca Jest ta gra, można się przekonać, 
próbując samemu w nią zagrać. Jest to możliwe za sprawą 
programu o nieco przewrotnym tytule "Master Head". Gra ta 
powstała w 1992 roku 1 różni się nieco od swojego pierwo¬ 
wzoru Ma ona dobrze opracowaną 1 wykonaną szatę graflcz 
ną oraz muzyczną Oprawę dźwiękową do gry napisał Tomasz 
Lleblch, który Jest obecnie jednym z najlepszych twórców mu¬ 
zyki na 8-bltowe komputery Atarl. Gra zawiera kilkanaście 
minut wspaniałej muzyki napisanej z użyciem tzw digltallz 

Gra 'Master Head" składa się z 46 labiryntów, na ułożenie 
których grający posiada niezliczoną Ilość czasu Gracz może 
posługiwać się Joystickiem lub klawiaturą Dodatkowe infor 
macje o grze I funkcjach niektórych klawiszy można uzyskać 
po naciśnięciu klawisza HELP 



Gra logiczna W dwóch studniach znajdują się klejnoty 
W lewej studni są one ułożone w sposób przypadkowy (tak 
zastaje Je skarbnik), w prawej natomiast widzimy do Jakiego 
ustawienia mamy doprowadzić Klejnoty porządkujemy zgod 
nie z pewnymi opisanymi w instrukcji zasadami Gra mimo 
swej prostoty bardzo wciąga - nie mniej niż legendarny Już 
ROBBO Niezaprzeczalnymi walorami programu są ponadto 
ładna grafika 1 ciekawa muzyka 



Gra zręcznośclowo-loglczno-edukacyjna, podobna nieco 
do nieśmiertelnego Tetrlsa Do studni wpadają klocki z liter 
kami Zadaniem grającego Jest ułożenie spadających klocków 
w wyrazy, które podane są z boku studni W momencie ułoże¬ 
nia jednego z podanych wyrazów pojawia się Jego słownikowe 
wyjaśnienie (w przypadku trudniejszych wyrazów), a ze stud¬ 
ni znika cała Unia, w której znajdował się ułożony wyraz Wy¬ 
razy są dobrane w sposób umożliwiający graczowi poznanie 
nowych, ciekawych słów, Do gry dołączony Jest prosty słow¬ 
nik dla dzieci oraz słownik wyrazów obcych. Istnieje możli¬ 
wość dogrywania dalszych słowników W przygotowaniu znaj¬ 
duje się program uczący słówek angielskich oraz dalsze roz¬ 
szerzenie słownika wyrazów obcych 

Grafika gry wykorzystuje maksymalną rozdzielczość Atarl, 
co wcale nie oznacza, że Jest dwukolorowa Jak zawsze 
w produktach firmy ASF zwraca uwagę interesująca muzyka. 

Gra przygotowywana Jest również w wersji dla komputerów 
IBM 1 AMIGA. 
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2, może przepisać poniższy program pod QUICK AS- 
SEMBLEREM; 

opt 37 
oig 82 

dta b(0) — zamiast 0 może być inna liczba 
end 

Po wygenerowaniu przez QA kodu należy go połą 
czyć z ACTION! za pomocą programu APPEND z TA 
5/91 (najpierw kod, potem ACTION!), 


Kolejną pożyteczną łatę" przysłał pan Adam Sala¬ 
mon. Jego poprawka dotyczy języka ACTION!. Autor 
pisze: 

Rzeczą dosyć uciążliwą (dla mnie) Jest ustawianie 
parametrów pracy poprzez tzw, menu opcji. Czyn¬ 
ność tę należy wykonać po wczytaniu ACTION!, 
a także po wykonaniu komendy BOOT z monitora, 
gdyż ACTION! przywraca standardowe parametry 

Wpisując poprawkę można tak " przerobić " AC¬ 
TION!, by po wczytaniu uruchamiał się z dowolnie 
ustawionymi parametrami DISPLAY, BELL, CASE 
SENSITIVE, LINĘ SIZE, W1NDOW 1 SIZE i EOL CHAR. 
Parametry te będzie można oczywiście zmieniać ko¬ 
rzystając z menu opcji, ale po wykonaniu komendy 
BOOT zostaną one i tak ustawione w wybrany na 
początku sposób. 

JA 1000 REM DISPLAY - 0-N 34-Y 
CT 1010 DATA 973,34,0 
IC 1020 REM 

AQ 1030 REM BELL - 96-N 76-Y 
. XX; 1040 DATA 956,76,96 
H. 1050 REM 

1060 REM CASE SENSITIVE - 223-N 255-Y 
SF 1070 DATA 934,223,255 
IV 1080 REM 

WV 1090 REM WINDOW 1 SIZE 
178 1100 DATA 938,18,18 

1||8 1110 REM 

CK 1120 REM LINĘ SIZE 
KS 1130 DATA 939,120,120 
flK 1140 REM 

ST- 1150 REM EOL CHAR - ZNAK MUSI BYC PODA 
NY W KODZIE INTERNAL 
UF 1160 DATA 959,0,0 


Za pomocą mojej poprawki nie można 
ustawienia parametrów LIST, TRACĘ 
i LEFT MARGIN. Zmiana pierwszych 
dwóch Jest dosyć trudna, gdyż sq one 
w inny sposób zapisywane przez AC¬ 
TION! oraz mija się to z celem (nie ist¬ 
nieje chyba poi zęba, by po wczyta¬ 
niu opcja LIST lub TRACĘ była włą¬ 
czona). Parametr LEFT MARCIN różni 
się w znaczny sposób od innych. Jest 
tak dlatego, ze ACTION! operuje bez¬ 
pośrednio na komórce 82, czyli ko 
menda BOOT nie przywraca Jego po¬ 
przedniego ustawtenta. Jeżeli ktoś ko¬ 
niecznie chce, aby po uruchomieniu 
ACTION! lewy margines był Inny niż 


zmienić 


Przedstawioną w postaci wierszy EJATA "łatę" należy 
połączyć z programem PATCHER z TA 7/91 1 całość 
wykonać To pozwoli na wczytanie pliku ACTION! 1 za¬ 
pisanie jego poprawionej wersji. 









Pan Dawid Weiss z Piły pisze: 

W Quick Assemblerze (wersja kasetowa) wykryłem 
drobny błąd (zamierzony?). Korzystam z Turbo 2000 
i QA nie chciał nagrywać programu na taśmę. W pro¬ 
cedurze obsługi zapisującej plik pod hasłem 
CMP #' D' następnym Jest zły adres skoku. Program 
poprawiłem, lecz chciałbym się doczekać odpowie¬ 
dzi, dlaczego tak Jest? 

Drogi Panie Dawidzie, podziwiam Pańską dociekliwość 
i umiejętność analizy programu maszynowego. Istotnie. QA 
w procedurze zapisu, po wykryciu, że urządzeniem wyjścio¬ 
wym Jest "D;" przechodzi do otwarcia pliku w trybie odczytu. 
Nie jest to jednak błąd, lecz metoda sprawdzenia, czy taki 
plik Juz Istnieje na dysku. Nazwa urządzenia ”D:" bowiem Jest 
zgodnie z tradycją zarezerwowana dla stacji dysków, a Turbo 
2000 niefrasobliwie jej używa. ©A natychmiast po otwarciu 
pliku znów go zamyka, po czym dopiero przystąpi do zapisu. 
Dlatego posiadacze systemu Turbo 2000 przy próbie zapisu 
pliku ze zdziwieniem słyszą sygnał do odczytu Rozwiązanie 
tego problemu Jest proste- należy zmienić nazwę urządzenia 
Instalowanego przez Turbo, np. na "T" Było to opisane w "ła¬ 
tach" prezentowanych na łamach TA. 


Janusz B. Wiśniewski 



Zamawiam nagrane na 


programy zamieszczone 
w numerze TA 


j | kasecie 
j dysku 


adres: 


b 


e 



















REDAKCJA NIE PONOSI ODPOWIEDZIALNOŚCI ZA TREŚĆ ZAMIESZCZANYCH OGŁOSZEŃ 





PrenumeraTA 


Liczba egzemplarzy 
każdego numeru 

cena 1 
egzemplarza 

3-mies. 

6-mies 

n= 1 

8900 

26 700 

53 400 

n=2 

8300 

49 800 

99 600 

m 

ii 

c 

8000 

72 000 

144 000 

n=4 

.7 650 

91 800 

183 800 

n=5 do 9 

7300 

21 900*n 

43 800*n 

n= 10 lub więcej 

6 750 

20 250*n 

40 500*n 


W celu zamówienia prenumeraty należy wypełnić czytel¬ 
nie blankiet wpłaty na konto (dostępny na pocztach 
1 w bankach) podając na odwrocie Imię, nazwisko 1 adres 
zamawiającego oraz liczbę egzemplarzy danego numeru 
wraz z okresem prenumeraty. Pieniądze prosimy wpłacać 
na konto: 

"Tajemnice Atari" s.c. Rzeszów, ul. Targowa 1/801 
Bank Przemysłowo-Handlowy m Oddział Rzeszów 
nr 326807-23850-136 



USŁUGI KOMPUTEROWE 

Naprawy sprzętu 

• stacje dysków • komputery • Joysticki 

• magnetofony • monitory 

Modernizacje 

• rozszerzenia pamięci 

• TURBO do stacji dysków 1 magnetofonów 

Oprogramowanie 

Rzeszów, ul. Poznańska 2a teL 447-20 w. 9 


Ceny ogłoszeń ramkowych w TA: 

• 1 cm 2 12000 

• Cała strona 6 min. + 100% za kolor 

• Ostatnia strona (kolor) 15 min, 

Ogłoszenia drobne: 

• każde słowo 5 000 


"PATROL” - nowa gra strategiczna oraz edytor 
plansz. Cena (dysk/kaseta) 28 000 + koszty 
przesyłki. 

MACIEJ ŚLIFIRCZYK, ul. Grójecka 64/1 
02-339 Warszawa 


O Księga przychodów i rozchodów - dysk+in¬ 
strukcja, tjdmlograin . Cena 70000 zł 

□ Test inteligencji - dysk, kaseta. Cena 
30000 zł 

□ Kabała - rozrywka parapsychologiczna. 
Cena 30000 zł 

oraz inne programy użytkowe 
Katalogi gratis 

Warszawa DH Sezam Studio Zet 
ul. Marszałkowska 126 
UPT 66 skr. poczt. 14 


Redakcja Tajemnic Atari Informuje o możliwości wysyłkowego nabywania 
wszystkich programów zawartyrh w dowolnym numerze pisma, nagranych na kasetę 
(tylko w transmisji normalnej) lub na dyskietkę W skład zbioru wchodzą wszystkie 
listingi, zamieszczone w wybranym przez Zamawiającego numerze Tajemnic. 

Cena wersji kasetowej wynosi 25.000 zł, zaś dyskowej 23 000 zł. W cenę wli¬ 
czony Jest koszt nośnika, nagrania, opakowania oraz opłaty pocztowe. Same 
listingi są za darmo. 

Zainteresowanych ofertą prosimy o dokładne wypełnienie zamówienia (na od¬ 
wrocie) l po naklejeniu go na kartę pocztową, wysłanie na adres redakcji po¬ 
dany w stopce. 

Uwaga! Prosimy o nleprzysyłanle wcześniej należności, będzie ona bowiem re¬ 
gulowana przy odbiorze przesyłki 
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562, $0232 SSKCTL 

Rejestr sterujący portu szeregowego, clen komorkl 
o adresie 53775 ($d20f) Ponieważ korzystanie j, tego 
rejestru ma sens tylko w trybie zapisu, podam jakie 
efekty wywołuje ustawienie poszczególnych bitów w tej 
komórce: 

O Włącza układ eliminujący drgania klawiatury 

1 Włącza układ odczytu klawiatury 

2 Zwiększa częstotliwość odczytu potencjometrów Za¬ 
miast co Jeden VBLANK, pomiar będzie się odbywał co 
dwie linie obrazu 

3 Włącza dwutonową, zamiast zero-jedynkowej. trans¬ 
misję szeregową 

4-6 Odpowiednia komblncja służy do wyboru trybu 
pracy portu szeregowego. 

7 Wymuszenie przerwania, wyzerowanie wyjścia portu 
szeregowego. 

Standardowo system wpisuje tutaj 19, czyli $13. 

563, $0233 SPARE 

Pojedynczy bajt, nie używany przez system operacyj¬ 
ny Firma ATARI nie zaleca Jednak korzystania we 
własnych programach z żadnej spośród tego typu ko¬ 
mórek, przewidując ewentualne wykorzystanie ich 
w późniejszych wersjach systemu 

Tak się składa, ze opis kolejnych dwóch komórek 
pamięci sprawia ml pewne trudności, wynikające z fa¬ 
ktu wykorzystania przez hardware ATARI lokacji 564 
1 565 ($0234, $0235) do przechowywania pozycji po¬ 
ziomej 1 pionowej pióra świetlnego. Niestety, nie zetk¬ 
nąłem się jeszcze bezpośrednio z piórem świetlnym, 
przeznaczonym dla naszego komputera, stąd opieram 
się Jedynie na książce "Mapplng the ATARI" 1, Chadwl- 
cka. 

564, $0234 LPENH 

Pozioma pozycja pióra świetlnego, liczona w cyklach 
koloru Zakres wartości od 0 do 227 

565, $0235 LPENV 

Pionowa pozycja pióra świetlnego. Zakres wartości 
od 0 do 95 

Zawartość obu tych komórek jest modyfikowana za 
każdym razem, gdy użytkownik naciska guzik na pió¬ 
rze świetlnym. 

Pełny opis współpracy komputera z piórem można 
znaleźć w książce "Hardware Manuał" na stronie 11-32. 

566, 567, $0236, $0237 BRKKY 

Wektor przerwania wywoływanego naciśnięciem kla¬ 
wisza BREAK. Standardowo ustawiany na 59220 


($e754). Zmiana tego wektora umożliwia dołączenie do 
systemu własnej procedury obsługi klawisza BREAK. 

568, 569, $0238, $0239 ... 

Są to dwie komórki pamięci, które nie mają oficjal¬ 
nej etykiety 1 nie są używane przez system operacyjny 
komputera. 

W tym miejscu zaczyna się czterobajtowy bufor ko¬ 
mendy używany przez SIO podczas transmisji szerego¬ 
wej. Użytkownik nie powinien modyfikować zawartości 
tych komórek, ponieważ może to spowodować nieprze¬ 
widziane efekty. 

570, $023a CDEVIC 

Numer identyfikacyjny szyny, używany przez SIO. 

571, $023b CCOMND 

Kod rozkazu szyny, ustawiany przez SIO. 

572, $023c CAUX1 

Bajt pomocniczy dla komendy, przenoszony z lokacji 

778 ($030a). 

573, $023d CAUX2 

Bajt pomocniczy dla komendy, przenoszony z lokacji 

779 ($030b). 

I Jeszcze kilka Innych komórek używanych przez pro¬ 
cedury transmisji szeregowej 

574, $023e TEMP 

Rejestr pomocniczy, używany przez SIO. 

575, $023f ERRFLG 

Flaga błędu transmisji szeregowej. 

576, $0240 DFLAGS 

Flaga dysku, odczytana z pierwszego bajtu pierwsze¬ 
go sektora dysku. 

577, $0241 DBSECT 

Ilość tzw "boot sectors", czyli sektorów zawierają¬ 
cych kod procedury odczytu potrzebnych po włączeniu 
komputera plików. Odczytana z pierwszego sektora 
dysku 

578, 579, $0242, $0243 BOOTAD 

Adres ładowania kodu. przeprowadzającego odczyt 
potrzebnych po włączeniu komputera plików. Ten sam 
adres bywa także chwilowo wpisywany do komórki 
RAMLO (4, 5). Po odczytaniu, zawartość "boot sectors’ 
zostaje przeniesiona pod podany tutaj adres. Normal¬ 
nie, np. DOS-y ładują ten swój fragment od adresu 
1792 ($0700) 
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580, $0244 COLDST 

Flaga zimnego startu W zależność 1 od lego jaka 
wartość Jesl wpisana do te) komorkl system operaey) 
ny komputera w ro/ny sposób reaguje na naciśnięcie 
klawisza RESET Normalnie ta komorka pamięci za¬ 
wiera zero. dzięki czemu użycie klawisza RESET nie 
powo(lu|e restartu systemu, połączonego z próbą od 
czytu wstępnego Wpisanie do COLDST dowolnej war¬ 
tość 1 nlezerowe) zmusza system operacyjny do wykona 
nta wszystkich akcji, zazwyczaj wykonywanych zaraz 
po włączeniu zasilania 

Posiadaczom pakietu QA proponuję podejrzenie za war 
toscl tej komorkl pamięci przy pomocy programu XLF 
w sytuacji normalnej pracy i po wywołaniu komendy BYE 
Interpretera BASIC-u Wcale nie musimy zgodzie się na 
zimny start komputera' Wystarczy wyzerować COLDST 
oraz zmienić zawartość komorkl 202 (to wymagania BA 
SIC-u), aby powrocie do przerwanej pracy 

581, $0245 ... 

Kolejna komorka bez przydziału 

582, $0246 DSKTIM 

Rejestr zawierający tzw tlmeout dla operacji dysko¬ 
wych, Procedury komunikacji ze stacją dysków zapisu 
Ją tutaj maksymalny czas, w którym napęd musi za¬ 
kończyć zleconą mu operację Standardowo OS wpisu¬ 
je tutaj wartość 224, co ma oznaczac. ze sterownik 
dysku musi zakończyć pracę w ciągu siedmiu sekund 
od otrzymania polecenia Wystarcza to do wykonania 
każdej operacji za wyjątkiem formatowania dyskietki, 
stąd programy, które to robią, same ustawiają odpo¬ 
wiednio dłuzszy czas. 

583-622. $0247-$026e LINBUF 

Czterdzlestoznakowy bufor wiersza Używany przez 
edytor do chwilowego przechowywania tekstu podczas 
przesuwania ekranu Procedura przesuwająca zapisu 
Je wektor tego bufora w komórkach 100 1 101 ($64, 
$65) 

623, $026f GPRIOR 

Rejestr wyboru priorytetu, clen komorkl 53275 
($d01 b). Używany głownie do określenia, które z obie¬ 
któw ekranowych mają być wysunięte przed Inne. do 
tworzenia piątego gracza oraz do wybierania koloru 
nakładających się fragmentów graczy. Znaczenie po 
szczególnych bitów 

O Gracze 0-3, pola gry 0-3. tło 

1 Gracze 0-1. pola gry 0-3. gracze 2-3, tło. 

2 Pola gry 0-3. gracze 0-3, tło 

3 Pola gry 0-1, gracze 0-3, pola gry 2-3. tło 

4 Cztery pociski tworzą dodatkowego piątego gracza 

5 Nakładające się fragmenty graczy przyjmują trzeci 
kolor 

6,7 Tryby graficzne GTIA 

Mozę się zdarzyć, ze przypadkowo ustawimy bity 
GPRIOR tak, ze wybierzemy dwa sprzeczne priorytety 
wyświetlania W takim wypadku w miejscach, w któ¬ 
rych pokrywają się gracze pojawi się kolor czarny Ten 
sam efekt otrzymamy Jeśli nie ustawimy bilu piątego 


Zapisanie jedynki do piątego bitu umożliwia stworze¬ 
nie wielokolorowych graczy W miejscach gdzie nakła¬ 
dają się obiekty O 1 1 ora/ 2 1 3 (tylko w tych kombina 
ejaeh) pojawi się trzeci kolor, utworzony z dwóch kolo- 
i ow grac/y 

Więcej informacji o grafice graczy 1 pocisków w odpo¬ 
wiednim (jednym z przyszłych) odcinku cyklu 

Na szczególną uwagę zasługują bity 6 oraz 7 opisy¬ 
wanego rejestru Zezwalają one na włączenie dodatko 
wych trybów graficznych GTIA Tryby te zostały wpro¬ 
wadzone Jako rozszerzenie możliwości graficznych ma 
łego ATARI wraz z pojawieniem się układu GTLA, który 
zastąpił przestarzały CTIA 

Sam ANTIC. o którym pisałem sporo w poprzednim 
odcinku mapy pamięci nie wystarczy do utworzenia na 
monitorze kompletnego obrazu. Nie generuje on bo¬ 
wiem kolorów, które często bywają bardzo potrzebne, 
ANTIC przesyła Informacje o kolorach do wspomniane¬ 
go Juz GTIA. który dopiero tworzy kolorowy wizerunek 
pewnego obszaru pamięci komputera. Odpowiednią 
kombinacją bitów 6 1 7 komorkl GPRIOR można wy¬ 
brać sposob przedstawiania danych przez GTIA. A oto 
zestawienie możliwych rodzajów wyświetlania. 

OO Normalne wyświetlanie Ta kombinacja bitów umo¬ 
żliwia uruchomienie starych programów dla ATARI 
XL/XE ponieważ jest właściwa dla układu CTIA. 

Ol Taka kombinacja bitów odpowiada trybowi graflcz 
nemu 9 BASIC-u. Dane obrazu zbierane są w czterobl- 
towe kawałki Interpretowane Jako stopnie jasności ko¬ 
loru z rejestru COLBAK Np w trybie wysokiej roz¬ 
dzielczości GTIA wyświetla paski o tej samej wysoko¬ 
ści. lecz czterokrotnie szersze od normalnych pun¬ 
któw 

10 Taka kombinacja bitów odpowiada trybowi graficz¬ 
nemu 10 BASIC-u Czterobltowe kawałki, na Jakie po¬ 
dzielona zostaje pamięć obrazu są interpretowane Jako 
numery rejestrów koloru. W teorii więc można by ko¬ 
rzystać z 16 kolorow, lecz niestety GTIA dysponuje Je¬ 
dynie dziewięcioma 

11 Taka kombinacja bitów odpowiada trybowi graflcz 
nemu 11 BASIC-u Czterobltowe kawałki, pobrane 
z pamięci obrazu są teraz Interpretowane jako kody 
kolorow, których jasnosc Jest pobierana z rejestru 
COLBAK 

Przedstawiony poniżej maleńki programik pozwoli 
nam na obejrzenie opisanych przed chwilą trybów 

GTIA 

10 GRAPHICS 0:SCRMEM=PEEK(88)+256*PEEK 
(89) 

20 FOR 1=0 TO 319:POKE SCRMEM+I,RND(0) 

*255:NEXT I 

30 GOSUB 100 

40 POKE 623,128 

50 GOSUB 100 

60 GRAPHICS 0:END 

100 IF PEEK(764)=255 THEN 100 

110 POKE 764,255:RETURN 

W wierszu 40 wystarczy zmienić wartość 128 na 64 lub 
192. aby zobaczyć pozostałe dwa tryby Grafikę 0 w wier¬ 
szu 10 również można zmienić na dowolną Inną 

Jarosław Syrylak 
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$0D 

$07 

$0E 

$0F 

$0F 

$08 


Zamiast wstępu 

Poniższy artykuł rozpoczyna cykl 
pod tytułom "Piszemy Demo". Mamy 
nadzieję, że po skompletowaniu 
I przeanalizowaniu wszystkich od 
cinkow tego cyklu, każdy 
z zainteresowanych czytelników hę 
dzle w stanie zaprogramować swo¬ 
je pierwsze demo Zapewne wię¬ 
kszość z Państwa zauważyła juz, że 
ten artykuł nie ma nic wspólnego 
z opublikowaną wcześniej zapowie¬ 
dzią serii. 

Co już umiemy? 

Wszystkie programy publikowane 
w kolejnych artykułach naszego cy¬ 
klu napisane zostały w QA Z tego 
względu zakładamy, ze każdy pra¬ 
gnący poznać tajemnice Atari po 
stada legalną (poprawnie działają¬ 
cą) kopię tego programu 1 wnikliwie 
przestudiował rozdział Instrukcji 
poświęcony programowaniu 6502 
Oprócz znajomości mnemontkow 
1 trybów adresowania naszego pro¬ 
cesora czytelnik powinien umieć 
posługiwać się Jeszcze dwoma sy¬ 
stemami numeracji dwójkowym 
i szestnastkowym 

Co to jest demo? 

Demo, Jak sama nazwa wskazu¬ 
je. jest programem prezentującym 
(z Jak najlepszej strony) możliwości 
graficzne i muzyczne komputera 
W przypadku naszego 8-bltowego 
Atari, zadanie to nie Jest proste: ko¬ 
nieczna jest umiejętność programo¬ 
wania procesora graficznego ANTIC 
oraz znajomość rejestrów GTIA. 
Obydwa te układy odpowiedzialne 
są za tworzenie obrazu POKEY na 
tomiast, między innymi, tworzy 
dźwięk. W tym i w następnym arty¬ 
kule zajmiemy się szczegółowo AN 
TIC'iem - czyli ekranem. 

Display List 

ANTIC, Jak każdy procesor, po¬ 
trafi wykonywać program Poszczę 
gólne rozkazy programu (omowione 
poniżej) określają strukturę wy¬ 
świetlanego obrazu Wektor 
DLPTRS umieszczony w pamięci 
w komórkach $230 1 $231 (560 
i 561) wskazuje na program AN 
TIC’a ANTIC potrafi zaadresować 


64 kilobajty pamięci, podobnie Jak 
CPU (Central Processor Unit - cen¬ 
tralna Jednostka sterująca, czyli 
6502) Oznacza to, ze program AN- 
TIC'a możemy umlescic w dowolnie 
wybranym miejscu pamięci 

Rozkazy ANTIC-a 

Rozkazy mikroprocesora ANTIC 
można podzielić na trzy grupy. 

• tworzące puste linie: 

• tworzące linie trybów graficz¬ 
nych lub tekstowych; 

• rozkazy skokow 

Rozkazy tworzące puste linie ma¬ 
ją cztery młodsze bity skasowane. 
Bity 4-6 zawierają liczbę tworzo 
nych pustych linii, zmniejszoną 
o jeden. Oto pełna lista rozkazów 
tworzących puste linie: 


]edna pusta linia - $00 
dwie puste linie - $10 
trzy puste linie - $20 
cztery puste linie - $30 
pięć pustych linii - $40 
sześć pustych linii - $50 
siedem pustych linii - $60 
osiem pustych linii - $70 


Następną wyróżnioną przez nas 
grupą rozkazów są rozkazy tworzą ¬ 
ce linie trybów graficznych lub te¬ 
kstowych Poniższa tabela zawiera 
zestawienie wszystkich tych try¬ 
bów- 


tryb ANTIC-a 

tryb OS 

$02 

$00 

$03 

- 

$04 

$0C 

$05 

$0D 

$06 

$01 

$07 

$02 

$08 

$03 

$09 

$04 

$0A 

$05 

$0B 

$06 

$0C 

$0E 


Wykorzystując to, co wiemy, ułóż¬ 
my pierwszy program dla ANTIC’a, 
wyświetlający na ekranie dziewięć 
linii w trybie $02 ANTIC a: 


Program Egu $8800 


List snem 

Egu 

%00000110 

List err 

Egu 

%00000101 

Codę mem 

Egu 

%00010000 

Codę dsk 

Egu 

%00100000 

Dlptrs 

Egu 

$0230 

Kbcodes 

Egu 

$02FC 


Opt 

List_err+Code mem 


Org 

Program 


Lda 

Pha 

Dlptrs+1 


Lda 

Pha 

Dlptrs 


Ldx 

<DList 


Ldy 

>DList 


Stx Dlptrs 


Sty Dlptrs+1 


Jsr 

Pla 

Klawisz 


Sta 

Pla 

Dlptrs 


Sta 

Rts 

Dlptrs+1 

Klawisz 

Lda 

#$FF 


Sta 

Kbcodes 

LI 

Cmp 

Kbcodes 


Beg 

Rts 

Ll 

DList 

Egu 

* 


Dta B{$02),B($02),B($02) 
Dta B($02),B($02),B($02) 
Dta B($02),B($02),B($02) 


End 
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Po uruchomieniu programu we¬ 
ktor DLPTRS odkładany Jest na 
stos Następnie ustawiamy go tak, 
aby wskazywał na nasz program 
ANTICa, zaczynający się od etykie¬ 
ty DList. Podczas gdy komputer 
oczekuje na naciśnięcie klawisza 
(procedura Klawisz) widoczny Jesl 
efekt działania programu. Po nacis 
nięciu klawisza przywracany Jest 
stary wektor DLPTRS Zgodnie 
z oczekiwaniami na ekranie pojawi¬ 
ło się dziewięć linii trybu $02 AN¬ 
TlCa. Oprócz nich zostały wyświet¬ 
lone rowmież Inne, zupełnie przy¬ 
padkowe linie obrazu, ponieważ 
program ANTICa nie został poprą 
wmle zakończony Aby to zrealizo¬ 
wać musimy poznać Jeszcze dwa 
rozkazy, rozkazy skoków: 

• JMP ( $01) - tworzy Jedną pu¬ 
stą linię, a następne dwa bajty 
programu ANTICa nie są rozka¬ 
zami, tylko adresem dalszej czę¬ 
ści Display List Rozkaz ten Jest 
analogiczny do rozkazu JMP 
procesora 6502 

• JVB ($41) - kończy program 

ANTICa, a kolejne dwa bajty pro¬ 
gramu nie są rozkazami, tylko po¬ 
winny być adresem początku Di¬ 
splay List. 

Teraz Jesteśmy w stanie zlikwido¬ 
wać przypadkowe Unie, umieszcza¬ 
jąc na końcu programu ANTICa 
rozkaz JVB. Część programu za¬ 
wierająca Display List ma postać 

Dlist Dta B($02),B($02),B($02) 
Dta B($02),B($02),B($02) 
Dta B($02),B($02),B($02) 
Dta B($41),A(Dlist) 

End - 


W ten sposob otrzymaliśmy dzie¬ 
więć linii trybu $02 ANTICa Linie 
te zawierają przypadkowe znaki. 
Dzieje się tak dlatego, ze nie poin¬ 
formowaliśmy ANTICa skąd ma 
pobierać dane do wyświetlania. 
Tak więc, musimy się zapoznać 
z kolejnym pojęciem LMS (Load 
Memory Scan) Zmodyfikujmy po¬ 
przedni program tak. aby ANTIC 
pobierał dane z wyznaczonego 
przez nas obszaru pamięci. Pro¬ 
gram po modyfikacji, od etykiety 
DList, wygląda następująco: 

DList Dta B($42),A(Text) 

Dta B($02),B($02) 

Dta B($02),B($02),B($02) 
Dta B($02),B($02),B($02) 
Dta B($41),A(Dlist) 

Org $A000 

Text Dta D'Tajemnice Atari.' 
End 

W pierwszym rozkazie programu 
ANTICa ustawiony został szósty bit 
(czyli do $02 dodaliśmy $40), a na- 
stępu|ący po nim wektor wskazuje 
na wybrany przez nas obszar pa¬ 
mięci. Z obszaru tego ANTIC będzie 
pobierał dane wyświetlane na 
ekran przy pomocy licznika pamię¬ 
ci obrazu. Licznik ten jest automa¬ 
tycznie zwiększany przez ANTIC. 
Przy tej operacji brane jest pod 
uwagę tylko 12 najmłodszych bitów 
licznika, co ogranicza zakres Jego 
działania do czterech kilobajtów 
W praktyce oznacza to, ze jeśli da 
ne obrazu zajmują więcej niz 4 ki 
lobajty, to po przekroczeniu grani¬ 
cy czterokilobajtowego bloku kolej¬ 


ne dane będą pobierane od począt¬ 
ku tego bloku. W naszym przykła¬ 
dzie licznik pamięci ekranu usta 
wlony jest na tekst rozpoczynający 
się od etykiety Text. Po uruchomie¬ 
niu programu tekst ten ukaże się 
na ekranie Zwróćmy uwagę na to, 
ze napis "Tajemnice Atarf zapisany 
Jest w pamięci w kodzie lOCODE 
Na koniec pierwszego artykułu po¬ 
dajemy jeszcze Jedną proponowaną 
przez nas modyfikację Ponieważ li¬ 
nie wyśwetlane są od samej góry 
ekranu t mogą być niewidoczne na 
niektórych monitorach, to należało¬ 
by obniżyć wyświetlany ekran 
W tym celu umieśćmy trzy rozkazy 
$70 (tworzące w sumie 24 puste li¬ 
nie). Każdy program ANTICa two¬ 
rzony przez system operacyjny roz¬ 
poczyna się tymi rozkazami. Oto 
zmodyfikowany fragment naszego 
programu: 

DList Dta B($70),B($70),B($70) 
Dta B($42),A(Text) 

Dta B($02)rB($02) 

Dta B($02),B($02),B($02) 
Dta B($02),B($02),B($02) 
Dta B($41),A(Dlist) 

Org $A000 

Text Dta D'Tajemnice Atari.' 
End 


Dalszy ciąg za miesiąc.., 


Tomasz Bielak 
Rafał Bielecki 








• lis 


Efektem działania tego ' podglądacza' , w odróżnię- yr 
niu od innych tego typu programów, nie jest wy BG 
świetlani"? samego tylko numeru linii. Tutaj uzyt yc 
kownik widzi, krok po kroku, które wiersze progra- 
mu zostaną wykonane, i może zaobserwować efekt 
ich działania. 


Program umieszczony Jest od adresu S600. Przepisuje on 
ROM do RAM 1 p(ximlenla procedurę PRCSTM w lntcrprete- 
rze BASIC-a Wykorzystano tu procedurę Andrzeja Żale- BL 
wsktego opublikowaną w czasopiśmie "Moje Atarl" nr 3/91. 

GW 

W czasie działania programu TRACĘ przed wykonaniem ■: 

każdego wiersza (także w trybie bezpośrednim) komputer £K 
czeka na decyzję użytkownika ESC powoduje niezwłoczne 
wykonanie tego wiersza RETURN prowadzi do ekranu po¬ 
glądowego, gdzie widać tekst wiersza przeznaczonego do wy¬ 
konania Następny RETURN spowoduje wykonanie tego wler- BA 
sza, zaś DELETE - przerwanie programu 

m 


Wolclech Rawdantk 

BU 

BC 

Od redakcji: Podczas redakcyjnych testów program 
nie zatrzymywał się w pierwszym wierszu, bezposred- 
nlo po RUN Co na to autor? 



MK 

HO 

m 

HZ 

AU 

VQ 

PY 

cw 

m 

i CK l 

■ HF i 
IB 
HU 

■ JX 
CB 
VT 

: : BR 

\ m : 

51 

■: MP : 


BU 3 REM PROCEDURA TRACĘ DLA ATARI 
YU 4 REM AUTOR:W.RAWDAN1K 
NK 5 REM 

6 REM ROM DO RAM (A.ZALEWSKI) 

HM 7 REM 

*10$ 10 CLR :FOR N=1536 TO 1593:READ A:POKE 
N,A:S=S+A:NEXT N:AD=40960:? CHRę(125) 
JW 20 POKE 1556,253:X=USR(1537,AD,24576) 
W 30 POKE 1556,254:X=USR(1537,24576,AD) 
OA 40 AD=AD+256:IF AD>=53248 AND AIK55000 
' THEN AD=55296 
IŁ 50 IF AD>=65535 THEN 70 
RH 60 GOTO 20 


BK 

ON 

xa 

BN 

ZY 

RK 

BN 

KO 

OT 

HF 

XW 


M 


70 POKE 54017,254 

71 REM 

72 REM PROCEDURA TRACĘ 

73 REM 

75 RESTORE 200 

60 FOR T=1536 TO T+254:READ D:POKE T,D 
:NEXT T 

81 REM 

82 REM PROCEDURKA URUCHAMIAJĄCA 

83 REM 

85 RESTORE 400 

90 FOR T=32768 TO T+l1:READ D:POKE T,D 
•NEXT T 

94 ? CHR$(125):? :? :? "Procedura TRAĆ 

E zainstalowana :? “ESC.norma 

lnie":? "RETURN . wyświetlanie lin 

i" 

95 ? "DELETE . przerwanie programu 


96 ? "UWAGA ! ROM znajduje sie w parnie 
ci RAM" 

97 REM 

98 REM DANE PROCEDURY ROMRAM 

99 REM 

100 DATA 64,104,104,141,44,6,104,141,4 
3,6,104,141,47,6,104,141,46,6,120,169, 
254,141,1,211,169,0,141 

110 DATA 250,255,141,254,255,169,6,141 

,251,255,141,255,255,162,0,189,120,230 

,157,64,156,232,208,247,88,169 

120 DATA 253,141,1,211,96 

125 REM 

130 REM DANE PROCEDURY TRACĘ 
135 REM 

200 DATA 160,255,140,252,2,173,252,2 
202 DATA 201,12,240,7,201,28,208,245 
204 DATA 76,171,6,140,252,2,140,240,6 
206 DATA 173,48,2,72,173,49,2,72,173 
208 DATA 197,2,72,173,198,2,72,173 
210 DATA 244,2,72,173,111,2,72,41,63 
212 DATA 141,111,2,169,241,141,48,2 
214 DATA 169,6,141,49,2,169,202,141 
216 DATA 197,2,169,148,141,198,2,169 
218 DATA 224,141,244,2,169,0,160,160 
220 DATA 153,255,206,136,208,250,169 
222 DATA 76,141,153,186,169,184,141 
224 DATA 154,186,169,6,141,155,186,32 
226 DATA 142,181,169,0,172,240,6,153 
228 DATA 0,207,169,166,141,153,186 
230 DATA 169,181,141,154,186,169,72 
232 DATA 141,155,186,160,255,173,252 
234 DATA 2,201,12,240,5,201,52,208 
236 DATA 245,200,104,141,111,2,104 
238 DATA 141,244,2,104,141,198,2,104 
240 DATA 141,197,2,104,141,49,2,104 
242 DATA 141,48,2,152,240,6,140,252,2 
244 DATA 76,25,184,136,140,252,2,76 
246 DATA 146,183,162,0,142,239,6,32 
248 DATA 203,6,172,240,6,200,153,0 
250 DATA 207,140,240,6,96,16,8,162 
252 DATA 128,142,239,6,56,233,128,201 
254 DATA 31,176,7,24,105,64,13,239,6 
256 DATA 96,201,95,176,7,56,233,32,13 
258 DATA 239,6,96,13,239,6,96,0,0,112 
260 DATA 66,0,207,2,2,2,65,241,6 
280 REM 

285 REM DANE PROCEDURY URUCHAMIAJĄCEJ 
290 REM 

400 DATA 104,169,0,141,95,169,169,6,14 

1,96,169,96 

415 A=USR(32768) 


15 















VOO DOG 
CASTLE 


Mato który z początkujących łamacz 
joysticka zwraca więcej nlz 2 minue 
uwagi na gry przygodowe Dopiero, gdy 
gry zręcznościowe juz nie bawią, amatoi 
gier odkrywa powoli świat gier strategt 
cznych I przygodowych Gry przygodowe, 
zwane też "tekstowymi” polegają na ste¬ 
rowaniu przebiegiem akcji za pomocą 
słownych poleceń Mogą one dostarczyć 
chyba najwięcej przyjemności 1 satysfa¬ 
kcji, gdy potrafimy Je ukończyć. Nie są 
przy tym ani w połowie tak trudne. Jak to 
uważają ntewtąjemnlezeni. W większości 
gier korzysta się z bardzo ograniczonego 
słownictwa rzędu 100 - 300 stów Pole¬ 
cenia wydawane przez gracza kompute¬ 
rowi są najczęściej żywcem wzięte ze 
słownika Kallego Rozkazujemy; 'brać 
przedmiot", "Iść wschód" ltd Nie Jest 
więc potrzebna znajomość gramatyki 

Jedną ze stosunkowo prostych słowni¬ 
kowo, a dających możliwość przeżycia 
wielkiej przygody bez opuszczania swoje¬ 
go ulubionego fotela Jest właśnie "Voo Doo 
Castle". W grze można wykorzystać około 
120 stów Polecenia składają się z co naj¬ 
wyżej dwóch stów z których pierwsze to 
najczęściej czasownik. Stówa można skra¬ 
cać do 3 liter Niektóre często wykorzysty¬ 
wane zwroty da się skrócić Jeszcze bar¬ 
dziej Polecenia wyboru kierunku "Idź na 
południe, północ" Itp, można skrócić do 
pojedynczych liter oznaczających kierunki 
N, S, E. W (od North - północ, South - 
południe, East - wschód, West - zachód) 
Na każdym etapie gry mozesz nagrać Jej 
stan na dyskietkę poleceniem Save Gamę, 
a także zrezygnować z gry (Qult). Można 
sprawdzić Jakie przedmioty aktualnie nie¬ 
siesz (Imentory). Każdy obiekt da się 
wziąć (take), wyrzucić (drop), zbadać 
(examlne ..) lub obejrzeć (look ...). Każda 
plansza Informuje nas Jakie są w niej 
przedmioty (VLsible items) oraz wskazuje 
możliwości opuszczenia tej komnaty (So¬ 
nie esdts are NS - niektóre wyjścia są na 
północ, południe...). 

Stopi Może nie psuj sobie zabawy? 
Odłóż teraz TA, uruchom grę i spróbuj 
samodzielnie coś zdziałać. Dopiero gdy 
Cl braknie pomysłów, sięgnij do poniż¬ 
szego tekstu. 

Grę rozpoczynasz w kaplicy (a Cha 
pel). Widzisz zamkniętą trumnę (Cloeed 


Coflln) Akcja nasuwa się sama - otwie¬ 
rasz Ją (Open Coflln). Na trumnie znaj¬ 
duje się napis "Count Crlsto’s been cur- 
sed! Thereś one way for him to flee! 

Flnd it, and he'll go free 1 " (Książę Crlsto 
został zaklęty w kamień, lecz jest spo¬ 
sób, by go uwolnić! Znajdź go>) Widzi¬ 
my także mężczyznę mającego na ręce 
pierścień z szafirem (a man wearlng 
a sapphlre ring) Spróbujemy zabrać 
mu go (Take Ring). Udało się. Spraw¬ 
dzimy pierścień (Examlne Ring) Oka¬ 
zuje się, że na pierścieniu Jest coś napi¬ 
sane (Thereś somethlng written here). 
Musimy to przeczytać (Read Ring) Na¬ 
pis brzmi "pomachaj mną’’ (Wave Me). 
Próbujemy (Wave Ring) 1 nic Mozę Jesz¬ 
cze obejrzymy męzczyznę (Look man) 
1 zaczniemy zwiedzanie zamku 

Najpierw spróbujmy pójść na północ 
(N) Znajdujemy się w jednej z komnat 
zamku kruki krzyczą coś na zewnątrz 
(Raven erys somethlng outside), a okno 
w komnacie właśnie się zatrzasnęło. 
Spróbujemy je otworzyć (Open Win- 
dow), rozbić (Break Wlndow), nieste¬ 
ty Posłuchamy zatem, co mają do po¬ 
wiedzenia ptaszyska (Hear Rawen). Mó¬ 
wią one, by zapytać u sprzedawcy o grę 
"książę" (Count) Będzie to miłość od 
pierwszego bajtu (tt will be love at flrst 
byte) Ale reklama nic nie wnosi do gry. 
Skoro nic nie zdziałaliśmy, wracamy do 
kaplicy (S) 1 udajemy się na wschód 
(E) 

Znajdujemy się w tunelu.. Widzimy 
skrwawiony nóż (Bloody Knlfe) oraz 
masywne drzwi z ogromnym szafirem 
|masslve stone door wlth a sapphlre set 
into it). Zabieramy nóż (Take knlfe). 
Drzwi nie chcą się otworzyć więc może 
spróbujemy podłubać coś kozikiem 
(Cut Door) Niestety nóż nie robi na 
iteh żadnego wrażenia (Knlfe madę no 
lmpression on It), Ale... ten szafir koja¬ 
rzy się nam z pierścieniem. Może poma¬ 
chamy nim jeszcze raz. Tak, to Jest to - 
pierścień rozbłysł 1 drzwi znikają (Ring 
jflows brletly & door vanlshes). 

Widzimy teraz jamę prowadzącą 
w dół (sllck chute ieadlng downward). 
Pójdziemy tam (Go chute). W jednej 
z komnat zamku znajdujemy plakietkę, 
(Plaque), Jamę prowadzącą w górę, pęk- 



















nlęcie (Crack) I dziurę w ścianie (hole 
in the wali) Na początek sprawdzamy 
plakietkę (Examlne Ptaque) Okazuje 
się, że są tam napisy Próby czytania 
(Read Ptaquej są nieudane Litery są 
zbyt małe. by coś dojrzeć nieuzbrojo¬ 
nym okiem No cóz, weźmiemy Ją ze so¬ 
bą (Take Plaqu) Spróbujemy wejść 
w pęknięcie (Go Crack) Jesteśmy Jed¬ 
nak zbyt duzi. by to zrobić bez użycia 
potężnej magli. Wchodzimy zatem do 
dziury w ścianie (Go Hole) 

Znajdujemy się w pokoju wróżki Me- 
agen, lecz Ją samą wystraszyliśmy 
I schowała się (You startled medium 
& she vanished) Widzimy kryształową 
kulę (crystall bali) Rozbić Ją chyba 
szkoda (Break bali) lecz może sobie 
w nią popatrzymy (Look bali). Lecz co 
to? Zostałem przeniesiony z powrotem 
do tunelu (Splrlt vtbration drlve me 
from room) Widocznie wróżka nie lubi 
gdy ktoś buszuje wjej pokoju 

Wracamy do kaplicy (W) i udajemy 
się na południc (S). Znajdujemy się 
w korytarzu (Dlngy tooklng Stalrwet ). 
Widać pęknięte szkiełko (Broken glass) 

I schody Weźmiemy szkiełko (take 
glass) 1 spróbujemy przeczytać co Jest 
napisane na plakietce. Tym razem Jed¬ 
nak światło Jest zbyt Jaskrawe, by prze¬ 
czytać fosforyzujące litery (Phospbore- 
scent letters are very hard to read in 
brlght llght). Poszukamy szczęścia na 
zachodzie (W) Znajdujemy małą łopatę 
(Pocket shovel). Widać także otwarte 
drzwi lochów (jail celi). Ani nam się śni 
zgnić w lochach. Idziemy zatem na po¬ 
łudnie, Znajdujemy się w sali tortur 
(torturę chamber Widać otwarte, ma¬ 
lutkie drzwi. No cóż. nie Jesteśmy kras¬ 
noludkami Idziemy na wschód do 
zbrojowni (Armory). Zabieramy stąd 
tarczę (shleld) 1 złamany miecz (broken 
sword). Nie mając pomysłów co dalej 
robić, wracamy na korytarz. 

Udajemy się na wschód Jesteśmy 
w jednym z pokojów zamku Widoczny 
duży kocioł (big ket tle) mażemy zbadać, 
co pozwala ujrzeć znajdującą się pod 
nim dziurę W kotle Jest trochę zupy (so- 
up). Zjemy Ją (eat soup) Od razu poczu¬ 
liśmy się lepiej Próbujemy pchać ciąg¬ 
nąć ten wredny kocioł - i nic. Zdenerwo¬ 
wani posyłamy mu kopa (łdek ket tle) 
Pomogło - garnek się przesuwa. Wcho¬ 
dzimy do dziury. Jeat tu bardzo ciemno, 
możemy zatem przeczytać napts na pla¬ 
kietce (read piaque) Napis brzmi "Sale - 
38 33" (sejf 38 33). Na nic teraz ta Infor¬ 
macja - wychodzimy zatem (Up) Otrzy¬ 
mujemy też ostrzeżenie, że poruszanie 
się w ciemności Jest niebezpieczne 

Idziemy na północ W tym pokoju na 
ścianach znajdują się trofea (ani mai he- 
ads). Weźmiemy Je i widzimy ukryty sejf 
(Safc). Sprawdzalny go. Jest on zamknię¬ 


ty kombinacją cyfr od 33 do 38 (Safe s 
combinatlon lock is from 33 to 38) Pa¬ 
miętamy co głosił napis na plakietce. 
Kręcimy więc 38 (Tura 38) I 33 (Turn 
33) Sejf Jest otwarty Zabieramy znaj¬ 
dujący się w nim stary młotek fantiąue 
Hammer) 

Teraz na wschód Znaleźliśmy żelazny 
czajnik do odprawiania czarów (Cast 
tron pot) Sprawdzenie go wykaże, ze 
znajduje się tam wywar czarownic Dalej 
na wschód t Jesteśmy w laboratorium 
Widzimy torbę czarodziejską pana 
Ju-Ju. probówki (test tubes) I etykieto¬ 
wane chemikalia lilabelled Chemicals). 
Próbujemy wziąć torbę mamy jednak 
wrażenie Jakby była przyśrubowana do 
podłpg) Przy okazji Jedna z probówek 
eksploduje (one of the test tubes explo- 
ded) Dobrze że mamy tarczę Okazuje 
się, że niesiemy za dużo przedmiotów 
przy sobie Musimy trochę wyrzucić Wy ¬ 
rzucamy więc szkiełko (drop gfass pla¬ 
kietkę. pierścień - czyli niepotrzebne Juz 
przedmioty Zabieramy odczynniki i pro¬ 
bówki Sprawdźmy to wszystko 

Chemikalia wyglądają tak, Jak gdyby 
miały zostać zmieszane ze sobą Miesza¬ 
my Je zatem (Mlx chem). Teraz wygląda 
Ją prawie Jak lemoniada (tooks almost 
Hke lemonade). Nn to cóż. pijemy? Pije¬ 
my (Drink chem). Grzmot, 1 okazuje się, 
że zmaleliśmy na 4 stopy. To dobrze - 
minęliśmy kilka miejsc, gdzie trudno 
było się zmieścić Wracamy na korytarz 
i zabieramy stamtąd łopatę. 

Idziemy dalej do sali tortur. Drzwi są 
teraz szeroko otwarte (wlde open do- 
or). Wchodzimy w nie (Go door) 1 Jeste¬ 
śmy na cmentarzu (graweyard), widzimy 
groby <graves) oraz zardzewiałą piłę 
(rusting saw). Sprawdzamy dokładnie 
groby. Znajdujemy czterolistną koniczy¬ 
nę (four leaf dover). Okazuje się rów¬ 
nież. że Jest tu grób zarezerwowany dla 
nas (thls grave reserved for You) Bie¬ 
rzemy koniczynkę i piłę. Oczywiście 
musimy wyrzucić Jakiś przedmiot Wy¬ 
rzućmy mlecz. Mamy łopatę, więc może 
coś wykopiemy? Próbujemy (dlg grave), 
Słyszymy głos "strange hobby You have* 
(masz dziwne hobby)- Po powrocie do 
pokoju z oknem okazuje się, że Jest ono 
otwarte. Zostawiamy tu koniczynkę 
1 wchodzimy na okno (go wlndow) 

Na parapecie znajdujemy lalkę (Doli) 
Okazuje się. że lalka przedstawia księ¬ 
cia Crlsto i Jest poprzebljana szpilkami 
(Doli looks Uke count Crlsto ThereYe 
pins In It). Nie da się ich wyjąć (puli 
ptns) w tej chwili (I cant - yet) Wracamy 
do kaplicy 1 udajemy się na zachód do 
bawialni Widać duży kominek (large fi- 
replace). Wchodzimy doń (go flreplace) 
Znajdując się w nim widzimy zamknię¬ 
cie komina (Close flur ) oraz zakurzoną 
statuetkę przedstawiającą bożka (dusty 


Idol) Skoro brudny więc oczyśćmy go 
(Ctean Idol) Bożek zaczyna świecić 
(Idol beglns to głowi Otwieramy wejście 
do kominka (open (luc) zabieramy ze 
sobą bożka l wchodzimy tam (go flue). 
Możemy tam znaleźć sadzę (soot) 1 wi¬ 
dzimy deski przybite do ścian komina 
(Wooden boards nalls to chimney) Wyj¬ 
mujemy gwoździe (take nalls) i zabiera¬ 
my deski (take boards). Pod deskami 
znajdowała się krata (gratlng) Przeci¬ 
namy ją za pomocą piły (saw gratlng). 
To ciężka praca, lecz w końcu dajemy 
sobie radę Pod kratą znajduje się przy- 
clsk Naciskamy go (push button) I sil¬ 
ny podmuch wyrzuca nas do góry (duty 
ejchaust fan comes on & su : ks me up) 

W wąskiej części komina znajduje się 
uwięziony kominiarz (Chimney sweep) 
Pomagamy mu się wydostać (push swe 
ep) Z wdzięczności za uwolnienie wet 
ska nam przed zniknięciem kawałek 
papieru (hands me a piece or paper) 
Czytamy w nim; "Powiedz Zap. by przy 
wrócić kogoś zaklętego w kamień" Wy¬ 
chodzimy z komina i kierujemy się 
w stronę korytarza Tutą) wchodzimy 
na schody (go stalrs). Znajdujemy się 
w gabinecie (a parlor). Widać tu rzeźbę 
(Ju-Ju statuę). Zabieramy Ją i Idziemy 
do kaplicy. W kaplicy wypowiadamy 
słowa zaklęcta (say zap). Grzmoty 
1 rzeźba zaczyna pękać. Mamy wrażenie, 
że ktoś jest z nami w tym pomieszcze¬ 
niu - słyszymy czy|eś Jęczenie (1 hear 
someone mumbllng). Słuchamy więc 
(hear man). Ju-Ju man mówi "Moja 
torba Jest teraz twoja. Jej magla meże Cl 
pomóc" (My bag Is now Yours. Its magle 
will help You - Crack the coureel). 
Idziemy do laboratorium, otwieramy 
torbę i znajdujemy tam książkę (a bo- 
ok) oraz czarodzłejaką różdżkę (stlck). 
Książka zawiera słowa "Wlth kntfe In 
hand... Clrcte Coffln and..." (z nożem 
w ręku okrąż trumnę 1 ... - reszta stro¬ 
ny jest urwana 

Wracamy do kaplicy zabierając Jesz¬ 
cze z komnaty znajdującej się pod kot¬ 
łem, symbol pomyślności - zajęczą 
stopkę (rabblts foot). Rzucamy zajęczą 
stopkę (drop foot! na księcia (on man) 
Słychać grzmot Okrążamy trumnę 
Clrcle ColHn) - następny grzmot. Zro¬ 
biło się ciemno Jedyne światło pocho¬ 
dzi od świecącego bożka (Its very dark. 
the only llght is from the Idol)... 

Co dalej? Tęgo nie powiem. Pierwsza 
osoba, która odnajdzie sekretne przej¬ 
ście Ju-Ju mana, zobaczy uśmiechnię¬ 
tego księcia 1 uzyska od nieg} skarby, 
krótko mówiąc: ukończy grę, może po 
opisaniu dalszego ciągu otrzymać najyo 
dę. Będzie to wybrana praż zwycięzcę gra 
sprzedawana przez firmę Avalon. 


Jaro 
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PĘTLE 


Na początku tego odcinka chciał¬ 
bym zacytować fragment listu, jaki 
otrzymałem od pewnego właściciela 
Amigi. Była to odpowiedź na moje 
pytanie o język FORTH na ten kom¬ 
puter. 

Zacytuję. Chciałem Pana poinfor¬ 
mować, ze Języki FORTH, FOR¬ 
TRAN nie istnieją w wersji na Ami¬ 
gę. Myślę ze nie ma sensu progra 
mować w języku FORTH, Jeżeli on 
praktycznie wychodzi z użytku. 

Mam nadzieję, ze użytkownicy 
komputerów ATARI XL/XE nie po¬ 
dzielają poglądów zawartych w tych 
słowach. Aby rozwiać całkowicie 
wszelkie wątpliwości, postanowi¬ 
łem skomentować powyższy frag¬ 
ment listu. 

Po pierwsze: 

Języki FORTH 1 FORTRAN łączą 
cztery rzeczy: F, O. R 1 T Poza tym, 
są to Języki całkowicie odmienne. 

Po drugie: 

Sądzę, ze język FORTH nie zdą¬ 
żył Jeszcze dobrze wejść do użytku, 
aby miał Już z niego wychodzić. 
Ostatni standard pochodzi z roku 
1983 1 trudno tu mówić o czymś 
przestarzałym. A swoją drogą: 
oczywiście. Język FORTH Istnieje 
w wersji na Amigę. 

Przystąpmy Jednak do kolejnej 
odsłony, ukazującej tajniki naszego 
Języka. 

ZADANIE 

Przed poznaniem kolejnych słów 
postawmy przed sobą następujące 
zadanie. Napisać słowo o nazwie 
PAUSE, zatrzymujące program na 
ustalony czas. Parametrem we¬ 
jściowym tego słowa będzie liczba 
określająca czas postoju. Wię¬ 
kszość czytelników domyśla się za¬ 
pewne, ze słowo to stworzymy 
w oparciu o wewnętrzny zegar na¬ 
szego komputera. 


Aby wykonać postawione zada¬ 
nie, musimy poznać podstawową 
strukturę każdego Języka progra¬ 
mowania. Jest nią pętla. 

Zacznijmy od tej najprostszej, 
a przy tym - najmniej pożytecznej. 
Ma ona następującą postać: 

BEGIN ... AGAIN 

Pętla ta wykonuje bez końca 
wszystkie słowa zawarte między 
BEGIN a AGAIN. Uwaga! Wszystkie 
pętle w Języku FORTH muszą wy¬ 
stępować wewnątrz zadeklarowa¬ 
nego słowa. Niedopuszczalne Jest 
użycie takiej pętli w trybie bezpo¬ 
średnim, np: 

BEGIN 1 . AGAIN 

Każda pętla musi mleć swój po¬ 
czątek 1 koniec wewnątrz Jednego 
słowa, np: 

: PET BEGIN 1 . AGAIN ; GHEEĘ) 

Wykonajmy teraz nasze słowo pi¬ 
sząc: 

pet i-remna 

Słowo to będzie się wykonywało 
w nieskończoność 1 nie pomoże 
nam naciskanie klawisza BREAK. 


Jedynym ratunkiem jest niezastą¬ 
piony RESET, po którym FORTH 
wróci do stanu początkowego. 

Następną pętlą, którą chciałbym 
przedstawić jest tzw. pętla liczona. 
Ma ona następującą postać: 

n2 nl DO ... LOOP 

nl - to liczba określająca wartość 
początkową licznika pętli, znajdu¬ 
jąca się na szczycie stosu 

n2 - wartość końcowa licznika pęt¬ 
li, znajdująca się na stosie pod nl 

DO - otwiera pętle liczoną 

... - tu znajdują się dowolne słowa 
wewnątrz pętli 

LOOP - zamyka pętlę liczoną 
Oczywiście, pętla ta może wystę¬ 
pować tylko wewnątrz zadekla¬ 
rowanego słowa. Przykład: 

: PEŁ 20 0 DO 1 . LOOP ; SSEEU 
1 sprawdzamy: 

PEL nremrm 

Na ekranie ukazało się 20 jedy¬ 
nek. Aby uzyskać dostęp do liczni¬ 
ka pętli wprowadzono słowo I. Wy¬ 
wołanie tego słowa (tylko wewnątrz 
pętli Uczonej) zostawia na stosie 
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020 

aktualny stan licznika pętli Pr/y- Skoro poznaliśmy )u/ pętle llc/o- 
kład. iic, przeprowadźmy test sprawdza¬ 

jący szybkość Języka FORTH na na- 
: PEI 20 0 DO I . LOOP ; EUBEH szym komputerze 


i wywołujemy: 

pei cm 

Na ekranie ukazały się liczby od 
O do 19, a nie do 20. jak byśmy się 
spodziewali. 

Pętla była wykonywana, dopóki 
licznik nie osiągnął wartości końco¬ 
wej. czyli w naszym przypadku 20 
Wartość licznika |esi zwiększana 
w słowie LOOP, tam tez Jest spraw 
dzany warunek końcowy W przy¬ 
padku osiągnięcia przez licznik 
wartości końcowej pętla zakończy 
się 

FORTH rozporządza także bar 
dziej skomplikowaną odmianą pętli 

liczonej. Ma ona następującą po¬ 
stać: 

n2 nl DO _n +LOOP 

n2 l nl -to liczby na stosie mają 
ce identyczne znaczenie Jak w po 
przedniej pętli. 

DO - otwiera pętlę 

... - słowa wewnątrz pętli 

n - liczba określająca skok licznika 
pętli. Musi zawsze występować 
przed +LOOP a może przyjmować 
dowolne wartości, także ujemne 

+LOOF - słowo kończące pętlę 
Podczas korzystania z tej pętli 
należy uważać, aby licznik zbllzał 
się do górnej granicy, a nie oddalał 

Błędny byłby zapis 
: PEM 20 0 DO I . -1 +LOOP ; 


Deklarujemy słowo TEST 
: TEST 30000 0 DO LOOP ; EHHEEI 

Wywołując słowo ze stoperem 
w ręku możemy określić czas Jego 
wykonania. Gdy ukaże się napis 
OK. oznacza to zakończenie działa¬ 
nia słowa 

Aby uzyskać większą dokładność 
pomiaru czasu, możemy wykorzy¬ 
stać stworzone w poprzednich od¬ 
cinkach słowa- OZEGAR! 1 ZE¬ 
GAR (g . 

Piszemy sekwencję: 

OZEGAR i TEST ZEGAR0 . EHgEU 

Na ekranie pojawiła się liczba, 
która podzielona przez 50 da nam 
czas w sekundach 

Tak, to nie przywidzenie, pętla 
wykonywała się około 3 sekund 
Dla porównania, podobna pętla 
(FOR NEXT) w języku ATARI BA¬ 
SIC Jest liczona 58 sekund 

PORÓWNANIA 

Aby przedstawić inne rodzaje pęt¬ 
li, muszę zapoznać czytelników ze 
słowami wykonującymi porówna¬ 
nia Zacznijmy od słowa = 

Operator ten pobiera I porównuje 
dwie liczby będące najbliżej szczytu 
stosu Na ich miejscu zostawia jed¬ 
ną liczbę będącą tzw. znacznikiem 
porównania Znacznik ten przyble 
ra wartość 0 w przypadku fałszu 
i 1 dla prawdy 


Dla < znacznik przybiera war 
tośc 1 (czyli prawdy), gdy liczba 
znajdująca się niżej na stosie Jest 
mniejsza od liczby będącej na (ej 
szczycie. 

Dla > znacznik wyniesie 1 (pra¬ 
wda), gdy liczba w głębi stosu jest 
większa od liczby na szczycie. 

Sprawdźmy to w praktyce pisząc 
na komputerze 

io 5 = . Husna 

Otrzymamy wynik 0 Jeszcze raz: 

io io * . nrepnrci 

Tym razem otrzymamy oczywi¬ 
ście 1. 

Dla nierówności. 

10 5 > . CHUEPl 
jest 1, a dla 
io 5 < . mrcnn 

oczywiście 0. 

Zauważmy, ze znaki porównania 
wystąpiły w zapisie za liczbami, 
a nie między nimi Wynika to z za 
stosowanej notacji zapisu działania 
(tzw Odwrotnej Notacji Polskiej) 

Poznane dotychczas porównania 
interpretują dane wejściowe jako li¬ 
czby ze znakiem Aby umożliwić po¬ 
równanie liczb bez znaku, należy 
zastosować słowo U< . Działa ono 
podobne jak <, lecz nie uwzględnia 
znaku liczby Pamiętajmy o lym. ze 
każda liczba większa od 32767 jest 
interpretowana przez większość 
słów Jako ujemna. Była o tym mo¬ 
wa w poprzednich odcinkach tego 
cyklu. Spróbujmy: 

20000 45000 < . EHBEEl 

Otrzymaliśmy wynik 0 a powin¬ 
no być 1 Tak, lecz słowo < inter¬ 
pretuje liczby Jako ujemne o całko¬ 
wicie Innych wartościach 

Sprawdźmy, Jak widzi te liczby 
słowo <. Piszemy: 

20000 . M 

I 

45000 . nrePEE) 

Widzimy, ze nasze słowo zacho¬ 
wało się całkowicie poprawnie 


Wartość początkowa licznika wy¬ 
nosi 0, a z każdym krokiem pętli li¬ 
cznik jest zwiększany o -1, czyli 
zmniejszany Licznik zamiast zbli¬ 
żać się do górnej granicy, oddala 
się od niej Pętla ta nie zostanie nig 
dy zakończona. 

Poprawny będzie Jednak następu 

Jący zapis: 

: PEM 0 20 DO I . -1 +LOOP ; l:mil:L'l 

Wartością początkową Jest 20, 
a końcową 0 Słowo to po wywoła¬ 
niu wyświetli liczby od 20 do 1. 


W Języku FORTH każda liczba nle- 
zerowa Jest znacznikiem prawdy Na¬ 
leży o tym pamiętać, gdyż Jak przeko¬ 
namy się dalej. Jako znacznik można 
wykorzystać wynik z dowolnego dzia¬ 
łania matematycznego 

Kolejnymi słowami porównania 
będą operatory: 

< - mniejszości 
> - większości 

Słowa te działają na stosie bar¬ 
dzo podobnie do operatora równo¬ 
ści, lecz zostawiany wskaźnik Jest 
obliczany następująco 
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Ten sam warunek powinien wy 
glądać następująco: 

20000 45000 u< . EagĘg) 

Teraz otrzymaliśmy wartość 1 

Słowo U< znajduje szerokie za¬ 
stosowanie przy porównywaniu ad¬ 
resów, które - Jak wiemy - są licz¬ 
bami dodatnimi. 

Operatory przedstawione poniżej 
wymagają tylko Jednego parametru 
wejściowego. Są nimi- 

0= i 0< 

Wykonują one porównanie liczby 
będącej na szczycie stosu z zerem. 

Operator 0= pobiera liczbę ze 
szczytu stosu 1 zostawia na jej miej¬ 
sce znacznik równy l (prawda), 
gdy liczba równa się 0, a 0 (fałsz), 
gdy Jest inaczej 

Operator 0< zostawia na stosie 
znacznik prawdy (1) w przypadku, 
gdy liczba na stosie była ujemna 

Słowo 0= pełni w Języku FORTH 
także funkcję operatora NOT, zna¬ 
nego nam z innych Języków. 

Umożliwia ono zamianę znaczni¬ 
ka (prawda) 1 na (fałsz) 0 lub od- 
wrolnle. 


Czytelnicy zauważyli zapewne, że 
nie ma wśród standardowych słów 
Języka FORTH słowa U> lub 0> 
Co zrobić w przypadku, gdy zaist¬ 
nieje konieczność wykonania takie¬ 
go porównania? Nie ma z tym zad 
nyeh kłopotow, gdyż FORTH Jest 
Językiem umożliwiającym samo¬ 
dzielne tworzenie brakujących 
słów Przykład 

: Q> 1 — 0< 0= ; 

Zapewne zrozumiałe Jest dla czy¬ 
telników zastosowanie w prezento¬ 
wanej deklaracji słowa 0<, a na¬ 
stępnie zaprzeczenie znacznika 
przez 0=. Po co Jednak odjęliśmy 
1 od liczby na stosie? Gdyby opu¬ 
ście tę operację, powstałoby nastę¬ 
pujące słowo: 

: 0>= 0< 0= ; 

Słowo to zostawiałoby znacznik 
prawdy także w przypadku, gdy licz¬ 
ba ze szczytu stosu równałaby się 0 

Mam nadzieję, ze ze słowem U> 
czytelnicy poradzą sobie sami 

Kończąc opisywanie porównań, 
chciałbym zwrocie uwagę, ze po¬ 
równania wymagają zawsze para¬ 
metrów na stosie Niedopuszczalny 
byłby zapis: 


10 5 < = 

gdyż dla słowa — zabraknie Jed¬ 
nego parametru. W takim przypad¬ 
ku należy zastosować- 

10 5 > 0= 

Aby zwiększyć czytelność może¬ 
my stworzyć odpowiednie słowo: 

: <= > 0 = ; GHDEffl 

1 zapisać: 

10 5 <= 

PĘTLE, CIĄG DALSZY... 

Skoro poznaliśmy Juz operatory 
porównań, powróćmy do pętli. Ko¬ 
lejna z nich będzie miała postać: 

BEGIN ... / UNTIL 

BEGIN - początek pętli 

... - Jak w poprzednich przykła¬ 
dach 

/ - znacznik logiczny zostawiany na 
stosie 

UNTIL - koniec pętli 

Pamiętajmy, że znacznik /musi 
być zostawiany na stosie po każ¬ 
dym przebiegu pętli, gdyż słowo 
UNTIL pobiera go ze stosu. 

Pętla ta Jest wykonywana tak dłu¬ 
go, az znacznik J przybierze war¬ 
tość różną od zera (prawda). Słowa 
będące wewnątrz pętli muszą ten 
znacznik odpowiednio modyfiko¬ 
wać Przykład 

: ES 255 764 C! BEGIN 764 

c@ 28 = until ; sunna 

Zadeklarowaliśmy słowo o na¬ 
zwie ES. Co ono wykonuje? Spraw¬ 
dźmy: 

es Hfluna 

Nic się nie dzieje, doptero naciś¬ 
nięcie klawisza ESC powoduje opu¬ 
szczenie słowa Jedyną jego fun¬ 
kcją Jest właśnie czekanie na naciś¬ 
nięcie tego klawisza 

Ostatnia z prezentowanych pętli 
ma postać- 



BEGIN ... J WHILE . . . REPEAT 
BEGIN - początek pętli 
... - ciąg słów 
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J - znacznik logiczny na stosie 

WHILE - słowo pobierające 
i sprawdzające znacznik. Gdy Jest 
on równy 0 (fałsz), pętla Jest opusz¬ 
czana (skok za słowo REPEAT) 

REPEAT - kończy pętlę 

Zauważmy, że pętla ta rożni się 
od poprzedniej, nie tylko odmien¬ 
nym interpretowaniem znacznika, 
ale także dowolnością umieszczę 
nla słowa WHILE sprawdzającego 
warunek. Jeżeli umieścimy WHILE 
na początku pętli (zaraz po słowie 
BEGIN), może ona nie być wykona 
na ani raz, podczas gdy BEGIN UN- 
TIL musi się wykonać co najmniej 
raz. Przykład- 

: AA 255 764 Cl BEGIN 1 . 764 C@ 
255 = WHILE 2 . REPEAT ; [gąHjEE) 

Nowo stworzone słowo AA wy 
śwletla kolejno pary liczb 1 i 2 Gdy 
naciśniemy dowolny klawisz (ko¬ 
mórka 764 przyjmie wartość różną 
od 255), pętla zostanie opuszczona, 
W ostatnim przebiegu pętli, słowa 
znajdujące się po WHILE nie będą 
wykonane (liczba 2 nie zostanie wy¬ 
świetlona) 


Sprostowanie 

Do poprzedniego odcinka opo¬ 
wieści o Języku FORTH wkradło 
się kilka nieścisłości. 

Rada dla posiadaczy magneto¬ 
fonów (str. 24) okazała się nie¬ 
trafna. Zapisanie FORTH-a ze 
zmienioną wartością WARNING 
nic nie da, ponieważ FORTH od¬ 
nawia jej stan po wprowadzeniu 
go do komputera Należy więc 
każdorazowo ustawiać ją ręcz¬ 
nie. 

Pod hasłem Działania pier¬ 
wszy wiersz powinien wyglądać 

+ — * / nl n2-wynik 

Złośliwy chochlik "złamał” ten 
wiersz na dwie części (inny zło¬ 
śliwy' chochlik dopisał literkę i, 
która oczywiście nie Jest symbo 
lem działania. 

Przepraszamy. Poszukiwania 
winnych trwają. 

Redaktor 


JESZCZE O STOSIE 

Prezentowane w tej części artyku¬ 
łu słowa dotyczą stosu 1 nie mają 
w związku z tym odpowiedników 
w innych Językach Są tor 

DUP 

Słowo to tworzy duplikat liczby 
znajdującej się na szczycie stosu 

1 zostawia go nad tą liczbą, powię¬ 
kszając stos 

SWAP 

Zamienia między sobą dwie licz¬ 
by znajdujące się najbliżej szczytu 
stosu 

DROP 

Usuwa liczbę ze stosu 
OVER 

Tworzy kopię liczby znajdującej 
się pod liczbą ze szczytu i umiesz¬ 
cza Ją nad liczbą ze szczytu, powię¬ 
kszając odpowiednio stos. Liczby 
znajdujące się dotychczas na stosie 
nie ulegają zmianie. 

ROT 

Ustawia trzy liczby znajdujące się 
najbliżej szczytu w ten sposób, ze 
trzecią wyciąga na szczyt, a dwie 
pozostałe obniża o Jedno miejsce. 

Przetestujmy działanie dwóch 
ostatnich słów, gdyż wydają się one 
najtrudniejsze do zrozumienia Pi¬ 
szemy: 

2 3 over . . . EHEE33 

Uzyskaliśmy ciąg liczb: 2 3 2. Li¬ 
czba 2 została skopiowana nad 
dotychczasowym szczytem stosu, 
czyli liczbą 3 Następny przykład 

1 2 3 ROT . . . M 

Tym razem zobaczymy 13 2. 

Pamiętajmy, że szczyt stosu przy 
wprowadzaniu znajduje się po pra¬ 
wej stronie ciągu i Jest nim liczba 
3. Przy wyświetlaniu - odwrotnie, 
gdyż najpierw będzie pobrana licz¬ 
ba ze szczytu Widzimy więc, ze licz¬ 
ba 1 przeskoczyła z trzeciego miej¬ 
sca na szczyt stosu. 

Jeżeli twój FORTH posiada sło¬ 
wo S . lub . S to mozesz Je stoso¬ 


4 a: 




wać do przeglądania zawartości 
stosu 


REALIZACJA ZADANIA 

Skoro poznaliśmy Juz wszystkie 
niezbędne struktury Języka 
FORTH, możemy przystąpić do roz¬ 
wiązania problemu postawionego 
na początku artykułu 

Do napisania słowa PAUSE wy¬ 
korzystamy wcześniej stworzone 
słowa OZEGAR! i ZEGARfn. Były 
one opisane w poprzednich odcin¬ 
kach tego cyklu Więc do dzieła' 

: PAUSE OZEGAR! BEGIN DUP 
ZEGAR§ = UNTIL DROP ; 

OZEGAR! - zeruje stan zegara 

BEGIN - otwiera pętlę 

DUP - wykonuje duplikat parame¬ 
tru wejściowego 

ZEGAR@ - zostawia na stosie stan 
zegara 

= - porównuje wartość pobraną 
z komórek zegara z parametrem 
wejściowym 

UNTIL - powoduje opuszczenie 
pętli, gdy znacznik logiczny pozo 
stawiony na stosie przez = ma war 
tość nlezerową (prawda) 

Nasze nowe słowo PAUSE wyma¬ 
ga zawsze parametru wejściowego, 
np.: 

50 pause CHEEE) 

Liczba występująca przed PAU¬ 
SE określa czas działania słowa 
Dla wartości równej 50 będzie on 
wynosił dokładnie 1 sekundę 

Sposób realizacji słowa PAUSE, 
przedstawiony przeze mnie. nie Jest 
najlepszy, gdyż ingeruje w stan ze¬ 
gara. 

Mam nadzieję, ze czytelnicy po¬ 
trafią sami rozwiązać ten problem 
w taki sposób, aby wartość komó¬ 
rek zegara nie ulegała zmianie. 

Proszę więc o wasze rozwiązania 
słowa PAUSE, oczywiście w Języku 
FORTH. Najlepsze z nich zostaną 
zaprezentowane na łamach TA. 

Roland Pantoła 
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Prezentowany system turbo, 
w przeciwieństwie do innych tego 
typu programów dokładnie naśla¬ 
duje pracę DOS-u tak, że prawie 
wszystkie programy pracują bez 
zarzutu. System jest głównie 
przeznaczony dla tych, którzy 
troszeczkę poważniej traktują 
małe ATARI. 

Po przepisaniu dołączonego wydru¬ 
ku należy doczytać Zgrywusa z TA 1/92 
(Instrukcją ENTER), a po uruchomie¬ 
niu wybrać opcję "format plikowy 1 , a Ja¬ 
ko nazwę - C Można tez użyć Mtnl- 
Zgrywusa, przedstawionego w TA 3/92 
Po zgraniu programu na taśmę jeste¬ 
śmy posiadaczami systemu turbo Do 
szczęścia potrzebna jest Jeszcze drobna 
przeróbka magnetofonu. Posiadaczy sy¬ 
stemu TURBO 2000 ucieszy fakt ze 
TOS Jest z nim zgodny sprzętowo Nato¬ 
miast dla tych, którzy nie mają przero¬ 
bionego magnetofonu, polecam układ 
opisany w czwartym numerze miesięcz¬ 
nika "MOJE ATARI" 

TOS wczytujemy poprzez włączenie 
komputera (lub wykonanie zimnego 
startu) z wciśniętymi klawiszami 
START 1 OPTION lub z wciśniętym kla¬ 
wiszem START W pierwszym przypad¬ 
ku po odczytaniu wszystkich rekordów 
komputer przez chwilę "pomruczy” 1 na 
ekranie pojawi się tekst zachęty T: Na¬ 
tomiast w drugim pojawi się znajomy 
napis - READY Aby wtedy uruchomić 
TOS, piszemy polecenie DOS 1 naciska¬ 
my RETURN Wówczas pojawi się napis 
T:. 

TOS jest gotowy do przyjmowania po¬ 
leceń Piszemy na przykład HLP 1 naci¬ 
skamy RETURN Na ekranie zostanie 
wyświetlona pełna nazwa programu 
I spis aktualnie dostępnych Instrukcji 
Do systemu można dołączyć Jeszcze 
dwa polecenia, ale o tym w dalszej czę¬ 
ści opisu Składnia każdej Instrukcji 
Jest następująca- 

[u:]xxx [yyyy ] 

gdzie u - jednoliterowa nazwa urzą¬ 
dzenia z obowiązującym po niej dwu¬ 
kropkiem, xxx - trzyliterowa nazwa po¬ 
lecenia, natomiast oddzielone spacją 
yyyy - ewentualną opcją Fragmenty 
ujęte w nawiasy klamrowe można pomi¬ 
nąć. 


Na przykład napiszmy C:CAR ON 
Najpierw zostanie zmieniona bieżąca 
nazwa handlera na C czyli na magneto¬ 
fon w systemie NORMAL, a następnie 
zostanie wykonane podane polecenie 
Możemy również napisać CAR ON - wy¬ 
konane zostanie polecenie, ale bez 
zmiany handlera, lub CAR - przebieg 
polecenia będzie inny 

RUN 

Napisana bez podania adresu (czyli 
bez dodatkowej opcji) uruchamia osta- 
nlo wczytany program Jeżeli Jest to 
niewykonalne, to następuje powrót do 
systemu Napisana z adresem który 
jest w notacji szesnastkowej powoduje 
Jak się nietrudno domyślić, start pro¬ 
gramu od podanego adresu Na przy¬ 
kład RUN E477 - zostanie wykonany 
zimny start komputera Jeżeli naciśnie¬ 
my RETURN wraz z klawiszem SHIFT - 
wykona się skok pośredni Np piszemy 
RUN 2E0 1 naciskamy SHIFT+RE¬ 
TURN Zostanie wykonany program 
którego adres znajduje się w słowie 
S2E0 Jest to na ogół adres uruchomie¬ 
nia ostatnio wczytanego programu (ni¬ 
szczony po naciśnięciu klawisza RE- 
SET) 

MOT 

Powoduje włączenie lub wyłączenie 
silnika magnetofonu 

MEM 

Wyświetla dolną 1 górną granicę wol¬ 
nej pamięci RAM Pojawia się napis np 
Low = 15A4 High = BC1F - zależnie od 
tego czy są wczytane nakładki. 

HLP 

Poznana Juz wcześniej Instrukcja, wy¬ 
świetla nazwę programu oraz spis aktu¬ 
alnie dostępnych Instrukcji. 

CLS 

Tą Instrukcją możemy wyczyścić 
ekran 

Polecenia MOT, MEM, HLP, CLS nie 
mają dodatkowych opcji Jeżeli po tych 
Instrukcjach coś napiszemy (byle od¬ 
dzielić spacją) to zostanie to odrzuco¬ 
ne, a komenda wykona się normalnie 

DIR 

Podobnie jak w DOS-le powoduje 
wyświetlenie nazwy programu. Z zain¬ 
stalowanych handlerów Jedynie sterow¬ 
nik T:, czyli turbo, ma możliwość zapi¬ 


sywania nazw Jeżeli aktualne Jest 
urządzenie T , to po napisaniu DIR zo¬ 
stanie podany trzykrotny sygnał trąbki, 
wkładamy taśmę I naciskamy klawisz 
PLAY w magnetofonie (posiadacze przy¬ 
stawki TURBO 2000 powinni przełą¬ 
czyć magnetofon na system turbo), 
a następnie dowolny klawisz w kompu¬ 
terze Po na trafieniu na początek pliku 
TOS wyświetli nazwę 1 znowu usłyszy¬ 
my znajomy dźwięk. Polecenie się po¬ 
wtarza. Aby to przerwać, należy nacis¬ 
nąć BREAK. Jeśli zalstalowany zostanie 
sterownik, który podaje nazwę zgodnie 
z DOS-em, to polecenie DIR będzie 
działać bez zarzutu. Jako parametr 
można podać podobnie Jak w DOS-le 
maskę np • COM. z tym że handler T: 
nie zwraca na to żadnej uwagi 

CAR 

Uruchamia cartrldge pod warun¬ 
kiem, że Jest zainstalowany Jeżeli go 
nie ma, to program sprawdza, czy za¬ 
lstalowany Jest BASIC, jeżeli Jest - na¬ 
stępuje uruchomienie Interpretera bez 
skasowania programu BASIC-a Jeśli 
Interpreter Jest odłączony to wyświetla 
się napis: No cartrldge. Dla przykładu - 
w BASIC-u piszemy DOS, a następnie 
w TOS-le CAR, znowu ukaże się znajo¬ 
my napis - READY. Polecenie CAR ON 
powoduje włączenie Interpretera, bez 
względu na to, czy włączyliśmy kompu¬ 
ter z wciśniętym klawiszem OPTION, 
czy bez niego. Program BASIC-a zosta¬ 
nie wówczas skasowany Natomiast in¬ 
strukcja CAR OFF wyłącza Interpreter, 
dzięki czemu uzyskujemy dodatkowe 
8K wolnej pamięci. 

COP 

Uruchamia podręczny kopler. Skład¬ 
nia polecenia Jest następująca: 

COP name 

gdzie name to nazwa pliku przeznaczo¬ 
nego do kopiowania. Na przykład: po 
COP gA następuje odczyt pliku o na¬ 
zwie QA (Jest to prawdopodobnie Qulck 
Assembler). Jeżeli wystąpi błąd to wy¬ 
konanie polecenia Jest przerywane 1 na¬ 
stępuje powrót do Interpretera poleceń 
Po odczytaniu całego pliku pojawia się 
pytanie: Pile nuse Kopler pyta się 
o nazwę urządzenia do zapisu oraz 
o nazwę pliku Na przykład: C: lub 
T NAME. Po dokonaniu zapisu pona¬ 
wiana Jest prośba o podanie nazwy 
Wyjść można z tego naciskając klawisz 
BREAK 

Najważniejszą czynnością każdegp sy¬ 
stemu Jest odczyt 1 uruchomienie pro¬ 
gramów. Jako polecenie wypisujemy 
nazwę programu przeznaczonego do 
odczytania I uruchomienia. Na przy¬ 
kład T:DEMO lub DEMO albo znak 
gwiazdki, która zastępuje każdą nazwę 
Dla handlerów, które nie zapisują 
nazw, wystarczy samo naciśnięcie RE¬ 
TURN. Jeśli podczas odczytu stwier- 
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dzony zostanie błąd to przerywany Jest 
odczyt 1 wyświetlany Jest komunika! 
Error - nr, gdzie rtr Jest numerem błę 
du Naciśnięcie klawisza BREAK Jest 
traktowane Jako rezygnację 1 następuje 
bezpośredni powrót bez wyśwlel lania 
komunikatu 

W systemie małego ATARI Jest przyję¬ 
te, ze programy odczytywane przez 
DOS mają dwa pierwsze bajty równe 
255 (SFF) Jeśli TOS podczas odczytu 
nie znajdzie tych dwóch bajtów, wów 
czas przerwie odczyt 1 wyświetli komu¬ 
nikat Not blnary file Ma to na celu za 
bezpleczenle systemu przed zawiesze¬ 
niem w wyniku odczytu pliku z danymi 

Jeżeli podczas wykonywania progra¬ 
mu procesor natrafl na rozkaz BRK 
(prawdopodobnie błędnie napisany 
program lub zły adres po RUN), to na 
stąpi wejście do systemu poprzedzone 
wyświetleniem komunikatu BRK at 
adr. gdzie adr Jest adresem rozkazu 
BRK, w wyniku którego nastąpiło prze¬ 
rwanie 

Jeśli chcemy tylko zmienić nazwę 
urządzenia, wstarczy napisać nazwę 
wraz z dwukropkiem Na przykład C , 
T , M Nazwa, która nie figuruje w tab¬ 
licy HATABS będzie odrzucona 

Ważną częścią TOS-u Jest handler 
T:. Plik zapisywany na taśmie składa 
się z nagłówka zawierającego dwubajto¬ 
wy kod oraz jedenastu bajtów nazwy 
pliku Sam plik Jest zapisywany 
w 1024-baJtowych blokach W celu o- 
znaczenla końca pliku zapisywany Jest 
rekord składający się z samych zer 

Otwarcie pliku w Języku BASIC wy¬ 
gląda tak 

OPEN #nr, op.tr, nazwa 

gdzie nr, to numer kanału IOCB, op - 
sposób dostępu Dozwolone są nastę¬ 
pujące wartości 4, 5 - odczyt danych, 
6, 7 - odczyt nazwy (D1R), 8, 9 - zapis 
danych Parametr tr - określa reakcję 
handlera na błędy transmisji Wartość 
128 powoduje, w wyniku wystąpienia 
błędu, podanie numeru w rejestrze Y 
Jeśli tr ma wartość 0 l przekaz będzie 
zawierał usterki, wówczas sterownik 
zaząda ponownego odczytu błędnego 
rekordu Błąd sygnalizowany Jest brzę 
ezyklem 1 zatrzymaniem silnika magne 
tofonu Należy wtedy cofnąć taśmę co 
najmniej o Jeden rekord 1 nacisnąć spa¬ 
cję Jeżeli cofniemy więcej, nie musimy 
się tym przejmować, bo komputer znaj¬ 
dzie błędny rekord (rekordy są nume¬ 
rowane) Próba odczytu będzie pona¬ 
wiana aż do skutku Odczyt możemy 
przerwać naciskając BREAK. Tekst na¬ 
zwa określa nazwę pliku wraz ze spe¬ 
cyfikacją urządzenia Na przykład 
T NAZWA, Tl NAZW, T2 NAME Przy 


numerze 2 TOS wydłuża sygnał pilotu¬ 
jący poprzedzający ka/dy rekord 

Jeżeli nie podamy numeru po T, zo¬ 
stanie domyślnie przyjęty numer 1. 

Dla odczytania nazwy pliku dokonu¬ 
jemy otwarcia Jednego z bloków IOCB 

OPEN # 1,6,0,"T:" 

W przeciwieństwie do odczytu da 
nych nie będzie sygnału dźwięko¬ 
wego Nazwę (nazwy) odczytujemy 

Instrukcją 

INPUT # 1 ,A$ 

Oczywiście na końcu nie możemy za 
pomnieć o zamknięciu bloku IOCB 
W podobny sposób odczytuje się nazwę 
wDOS-ie 

Do TOS-u można dołączyć Jeszcze 
dwie komendy Nazwa komendy składa 
się z trzech liter oraz znaku EOL Pod 
adresem SB44 znajduje się tablica 
nazw Pierwsze wolne pole znajduje się 
Jak łatwo policzyć pod SB64 Rozmiar 
tego pola wynosi osiem bajtów (dwie 
nazwy) Natomiast wolne miejsce dla 
wpisania adresu startu znajduje się 
pod SBED 1 ma cztery bajty długości 
Po wpisaniu nazwy 1 adresu pozostaje 
Jescze zmienić zawartość dwóch komó¬ 
rek Pod adresem SB02 Jest przechowy 
wana długość tabeli Instrukcji, której 
warlość zwiększamy o cztery, natomiast 
pod SB03 Jest podana długość danych 
wyświetlanych po Instrukcji HLP, którą 
również zwiększamy o cztery Wszystkie 
te czynności najlepiej Ilustruje podany 
niżej program 

Pod adresm SFO i FI umieszczamy 
adres uruchomienia a pod SF2 1 SF3 
adres nazwy Po wykonaniu czynności 
związanych z komendą, sterowanie po¬ 
winno zostać przekazane pod adres 
wskazywany przez wektor DOSRIJN 
(SA). 


opt %10000 


runadr 

equ 

$£0 

napadr 

equ 

$f 2 

wolne 

equ 

Sb63 

adres 

equ 

$bee 

dlu 

equ 

$b02 

po HLP 

equ 

$116b 

pocz 

egu 

$6000 

org pocz 


* sprawdza czy pola sa wolne 

spra Idy #7 
sp Ida wolne,y 
bne scon 
dey 


bpi sp 
ldx #0 
beq zapis 

* nie wszystkie wolne 

scon cpy #4 
bes nie 
ldx #4 
bne zapis 

* oba pola zapełnione 

nie cpx #5 
bes ret 


wpisanie 


zapis txa 


zap 


ret 


lsr 

§ 

pha 


Idy 

#0 

Ida 

(napadr), y 

sta 

wolne,x 

inx 


iny 


cpy 

#4 

bne 

zap 

pla 


tax 


Ida 

runadr 

sta 

adres,x 

inx 


Ida 

runadr 

sta 

adres,x 

clc 


rts 



TOS udostępnia dodatkowo handler 
urządzenia M Jest to typowy RAMFILE 
w którym wielkość zapisanego pliku jest 
taka, Jak wielkość pamięci pod ROM-em 
OS Plik zapisany do tego urządzenia 
jest odporny na zimny start (o Ile wcześ¬ 
niej nie wyłączyliśmy zasilania). Oczywi¬ 
ście plik przechowywany pod systemem 
gryzie się z XLF-em 1 każdym Innym pro¬ 
gramem, który wykorzystuje ten obszar 
pamięci Najprostsza na to rada, to nie 
używać sterownika M w obecności ta¬ 
kich programów 

U waga. Przy niektórych odmianach 
sprzętu "turbo" do poprawnego zapisy¬ 
wania może się okazać konieczne wpro¬ 
wadzenie do TOS-u następującej "łaty" 

1000 DATA 447,141,205 

Łatę wykonuje się przy pomocy pro¬ 
gramu Patcher z TA 7/91 
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BG 

1000 

REM * 

ę 

RM 

1670 

DATA 

V» 

1002 

REM 

autor: Witold Sciuk : 

IB 

1680 

DATA 

rx 

1004 

REM 

Turbo Operating System : 

¥B 

1690 

DATA 

¥¥ 

1006 

REM 

(c) 1992 Tajemnice ATARI : 

m 

1700 

DATA 

Jp 

1008 

REM * 


GO 

1710 

DATA 


El 

1010 

DATA 

00l6ee0ae81018a94c850aa911 

XH 

1720 

DATA 

EM 

1020 

DATA 

850b4cd6£d0007205300000000 

m 

1730 

DATA 

FX 

1030 

DATA 

000000000000000000207f 08d4 

VY 

1740 

DATA 

OB 

1040 

DATA 

d5d2c2c£a0c£d0c5d2cld4c9ce 

RG 

1750 

DATA 

GE 

1050 

DATA 

C7a0d3d9d3d4c5cd889b207£20 

CT 

1760 

DATA 

TA 

1060 

DATA 

286329206279205769746£6c64 

JE 

1770 

DATA 

p« 

1070 

DATA 

20536369756b9b9b52554e9b4d 

GZ 

1780 

DATA 

EU 

1080 

DATA 

4£549b4d454d9b4341529b434f 

JC 

1790 

DATA 

TE 

1090 

DATA 

509b4449529b484c509b434c53 

KM 

1800 

DATA 

ZP 

1100 

DATA 

9b000000000000000054ba0000 

MK 

1810 

DATA 

¥3 

1110 

DATA 000000000000000@0000000p00 

IY 

1820 

DATA 

TB 

1120 

DATA 

0000003 4 6f7720jd 020020 

ŁC 

1830 

DATA 

I»T 

1130 

DATA 

20202048696768203d20202020 

AP 

1840 

DATA 

RE 

1140 

DATA 

209b42524b2061742020202020 

DC 

1850 

DATA 


1150 

DATA 

9b4e6£742062696e6172792066 

DM 

1860 

DATA 

C3 

1160 

DATA 

696c659b4e6f20636172747269 

OB 

1870 

DATA 

XB 

1170 

DATA 

6467659b46696c65206e616d65 

FP 

1880 

DATA 

TG 

1180 

DATA 

3a209b4572726f72202d202020 

BP 

1890 

DATA 

HE 

1190 

DATA 

209bl513080677135512991006 

XG 

1900 

DATA 

RE 

1200 

DATA 

126£1476125clld21000000000 

BD 

1910 

DATA 

JP 

1210 

DATA 

C612160£c90£9d0e8f0e0f0f£d 

CA 

1920 

DATA 

¥C 

1220 

DATA 

0ca9££8dfc0220c90ca90320£c 

PB 

1930 

DATA 

JO 

1230 

DATA 

£d303a20a80ca954204c0c3030 

1A 

1940 

DATA 

S2 

1240 

DATA 

a00220c30d 02 9S0£09118c8c0 

RS 

1950 

DATA 

PX 

1250 

DATA 

0bd0£248a93c8d02d38d0306ad 

TY 

1960 

DATA 

ZR 

1260 

DATA 0ld309018d01d3a9408d0ed4a5 

AM 

1970 

DATA 

OT 

1270 

DATA 

1009808d0ed26858604cl£0e85 

co 

1980 

DATA 

ax 

1280 

DATA 

00a9f£853020ba0d30f2c500d0 

R1 

1990 

DATA 

SC 

1290 

DATA 

£3a980853020c30d30e550e8c9 

JT 

2000 

DATA 

«w 

1300 

DATA 

3ad0e4608aa2dbd0088aa25dd0 

BM 

2010 

DATA 

¥0 

1310 

DATA 

038aa224cad0£daa608540a200 

m 

2020 

DATA 

ss 

1320 

DATA 

a9838d0fd2a9008dlad0206b0c 

LR 

2030 

DATA 

c® 

1330 

DATA 

a9038d0£d2a90a8dlad0206b0c 

BR 

2040 

DATA 

ES 

1340 

DATA 

2c0ed21007cad0dec640l0da60 

PE 

2050 

DATA 

JV 

1350 

DATA 

a9348d02d3 8d03d3 a51009 808d 

TQ 

2060 

DATA 

DG 

1360 

DATA 0ed2a9008d0ed4 8d00d4 7 8ad01 

RG 

2070 

DATA 

GF 

1370 

DATA 

d329£e8d01d360ae000b8618ae 

CC 

2080 

DATA 

01 

1380 

DATA 

0l0b8619a90385366048e618d0 

m 

2090 

DATA 

ET 

1390 

DATA 

02e619ee040bd003ee050bae04 

GS 

2100 

DATA 

8L 

1400 

DATA 0bec060bad050bed070b689009 

XT 

2110 

DATA 

8T 

1410 

DATA 

a2008e040b8e050b60a20160a2 

FA 

2120 

DATA 

BP 

1420 

DATA 08851c461ca9838d0fd2a9008d 

WT 

2130 

DATA 

HF 

1430 

DATA 

Iad0900520700cb00320750ca9 

SJ 

2140 

DATA 

13R 

1440 

DATA 038d0fd2a90a8dlad090052070 

GY 

2150 

DATA 

HF 

1450 

DATA 

0cb00320750ccad0d360l820c9 

GI 

2160 

DATA 

FP 

1460 

DATA 0ca900aaa871189001e8c8d0f8 

CJ 

2170 

DATA 

00 

1470 

DATA 

e619c6 3610f0c6196048ee0f0b 

"A 

2180 

DATA 

FT 

1480 

DATA 

adl£d02902d002853e20a80c20 

VT 

2190 

DATA 

CS 

1490 

DATA 

340d851a861ba908243el00ba2 


2200 

DATA 

m 

1500 

DATA 

02a5212901d002a2048aa28086 

08 

2210 

DATA 

m 

1510 

DATA 

3e207d0cl03920c90ca9582002 

m 

2220 

DATA 

CG 

1520 

DATA 

0da93a20020dad0f0b20020d68 

m 

2230 

DATA 

00 

1530 

DATA 

20020da51a20020da51b20020d 

co 

2240 

DATA 

KB 

1540 

DATA 

a000bl1820020d2c0ed2100dc8 

BA 

2250 

DATA 

0K 

1550 

DATA 

d0£3e619c63610ed4c7e0£6810 

PQ 

2260 

DATA 

JM 

1560 

DATA 

65a928853420c90ca000a9088d 

MB 

2270 

DATA 

EU 

1570 

DATA 

040ba200ad0£d22910f0108540 

:M. 

2280 

DATA 

m 

1580 

DATA 

4a8dlad02c0ed21043e8d0eb£0 


2290 

DATA 

Bit 

1590 

DATA 0f8dlad0a540f0efa9008540e0 

MU 

2300 

DATA 

PP 

m 

1600 

DATA 

339006243070c650l£e009b004 

MQ 

2310 

DATA 

1610 

DATA 

c634d0cce434a919b002a91185 

LF 

2320 

DATA 

m 

1620 

DATA 

34661cce040bd0b9a51c2cfe0c 

yę 

2330 

DATA 

IX 

1630 

DATA 

6050632056£520£8f210092029 

PA 

2340 

DATA 

«Q 

1640 

DATA 0ca08060ee0f0b20a80ca95820 

QU 

2350 

DATA 

SP 

1650 

DATA 

4c0c30ed 20c30d504ecd0f0bd0 

m 

2360 

DATA 

m 

1660 

DATA e£20c30d5044c9fe8500d0034c 

m 

2370 

DATA 


810£20c30d5036851a20c30d50 

2£851b20c30d30c250269118c8 

d0£4e619c63610ee20290c2034 
0dcS1ad009e4Ibd005a500a00l 
602cl00bl095a08f6020290c2c 
100bl08aa0c860a200811820d8 
0cd0eIa9£c4c4d0dad050b0d04 
0bd063 2c080b1042 8d070b2c08 
0b706X20c90ca007a920911888 
10f920000c3020a000a99bdll8 
£00ec8c010d0£7a9209118c8c0 
10d0£9a99b9X18c88c060bd022 
a9c08d080ba000£0e420250e08 
c9£ef01e28301ac9£cf00a8d07 
0ba0f£bl188d060b20c90ca200 
al1820d80ca0016068a08860a5 
2 aa0048c070ba0008c060b8c08 
0b8c89028c040b8c050b8c0f0b 
a42b8cl00b290e852ac904£010 
C908f047c906d007a9808d080b 
a00l6020000c30£a200810a002 
a20lbd0004c99b£0lcc920£018 
c92a£0l4dX18d019c8e8c00d£0 
0ac99bf006bd00044c660f20c9 
0c20290ca00160a0d06020c90c 
a9££8d£c02a90420fcfd30f020 
0810a9808d8902853e20a80ca9 
0d207d0cl01aa93a8d0004a954 
20020da000b9000420020dc8c0 
0dd0f54c7e0f4cl£0e2c890210 
£ 5ad050b0d040bf015 20c 90c18 
65198519a0f£ad040b9118ad05 
0b204d0d20c90ca00098a2038e 
050b9118c8d0fbe619ce050bX0 
£ 4 a9 £ e4c 4d0da001a200a9 3 ad1 
24£001c8bl249d0004e8c8c00d 
d0£560a212a9038d0£d2a9ff8d 
£c02a9009d6d0bcad0£a866b86 
36204a£2c0003021a636c99b£0 
16297£c9619006c97bb002e91f 
9d6e0be8e01Id0dda99b9d6e0b 
a00l608636a557c91090032094 
e£a636bd000b300720b0£2e636 
d0f2c99bf002297f4cb0£24829 
0f208f108500684a4a4a4ac90a 
b003693060693660a003b9e502 
208210beda0b9d810ba5009d82 
0b8 810ec 20ba 10a2812060l04c 
741Ia99b20b0f2a99b4cb0f2a2 
00bd6e0b9d6c0be8e012d0£560 
2020£44c741Ia900a20186ca9d 
090b9de002cal0f760a09£cce7 
02a915ede8029008a9158ce702 
8de802a2258e0602a2118e0702 
20de14 a9038dda02 ad1£d0£005 
2902f004604c77e4a24c860aa2 
11860bd027686838d868e90208 
2082108da20ba6008ea30b2 86 8 
e 9002082108da00ba6008eal0b 
a29920601020del4a2038609a2 
ffd8589a860830l820bal0a200 
8600a600ec030bf00abd 10b20 
b0f2e600d0e£20bal020ebl3a9 
ba8d6d0ba26c206010a5528d0b 
0 bl869028552201fl008ad0b0b 
85522830daa23a8e6d0bec6f0b 
d0lda221ad6e0bddla03f007ca 
cacal0£630b£20c410ad6e0bc 9 
9b£0b5d0d9a000a200bd6e0bd9 
440bf008c8cc020bd0f2f022e8 
e003£012bd6 e0bc 8cc020b£014 
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MS! i 


WW 2380 DATA d9440bf0eda200£0elad710bc9 
CQ 2390 DATA 20f006c99bf002a028984a291e 
MA 2400 DATA 1869de8d04126cde0badl3d0d0 
MQ 2410 DATA 26ac720bc04fd01aac730bc046 
AB 2420 DATA £008c04ed00fa900f002a9018d 
Qr 2430 DATA f80320d8104c74e4adf803d003 
YR 2440 DATA 6c£abfa2b52060104c7411a201 
JM 2450 DATA bde0029d090bcal0f7ad090b0d 
SM 2460 DATA 0a0bf0ea20d6fd6c090bad02d3 
Et 2470 DATA 49088d02d34c74116ce202a250 
m 2480 DATA a9008d98038d99032056e41003 
DD 2490 DATA 4c38136020ebl320f513a250a9 
YN 2500 DATA 039d4203a96c9d4403a90b9d45 
KZ 2510 DATA 03a9069d4a032056e430dba907 
QX 2520 DATA 8d920320bal0a2008e0b0b2063 
fOW 2530 DATA 12ae0b0b9d6e0bc99bf008e8e0 
i-JfC 2540 DATA 128e0b0bd0eba99b9d6e0ba26e 
OQ 2550 DATA 2060104c9f122029142056e430 
ŁG 2560 DATA a4a9ff85Ida9008de2028de302 
OT 2570 DATA 8d98038d9903a9408d0b0ba907 
HW 2580 DATA 8d92032063128d94032063128d 
R8 2590 DATA 95032d9403c9f£d00d241dl003 
OM 2600 DATA 20d810a900851df0c8241dl008 
ŁI 2610 DATA a2a52060104c741120631285le 
Gf 2620 DATA 206312851fa207204el4301lad 
XQ 2630 DATA e2020de302f0a32060124cd212 
HT 2640 DATA 4c3cl220290cc080f035c088d0 
HJ 2650 DATA 0a2c0b0b70edl02a4ca514a900 
VA 2660 DATA aaf81869019001e888d0f7d820 
MH 2670 DATA 82108dd70ba5008dd80b8a2082 
QR 2680 DATA 10a5008dd60ba2ce2060104c4c 
BP 2690 DATA 1Iad720b£004c99bd0034c4712 
śTW 2700 DATA a003a90099040b8810fac8b972 
tflu 2710 DATA 0bc99bf02b48a202bd040b9d05 
OX 2720 DATA 0bcal0£768c93090cec93a900c 
Rfi 2730 DATA c94190c6c947b0c2e9361002e9 
2740 DATA 2£8d040bc8c00490cead050b0a 
$A 2750 DATA 0a0a0a0d040b8de913ad070b0a 
AQ 2760 DATA 0a0a0a0d060b8deal3a24cad0f 
DC 2770 DATA d22908d002a26c8ee8136c040b 
JZ 2780 DATA a250a90c9d42034c56e4a200bd 
Ti 2790 DATA 720b9d6e0be8e00dd0£56020eb 
MT 2800 DATA 13a2c22060l0201f10303dac6e 
KP 2810 DATA 0ba908d01720ebl3ad710bc99b 
W 2820 DATA d0058d6e0bf00320f513ac6c0b 
KA 2830 DATA a9048d9a03a903a2508d9203a9 
SA 2840 DATA 00c043d002a9808d9b03a96c8d 
QV 2850 DATA 9403a90b8d95036038a5leed94 
LK 2860 DATA 03a8a51fed9503c8088c9803a8 
MC 2870 DATA 28d001c88c99038e9203a2504c 
ER 2880 DATA 56e4a9808d0b0b2017142056e4 
2890 DATA I0034c381320d810a207ace702 
FK 2900 DATA 8c9403ace8028c9503ace50284 
OE 2910 DATA Ieace602841£204el430dd2056 
TŁ 2920 DATA f54c7411ad9803851ead990385 
II MC 2930 DATA I£20031430eea51e8d9803a51f 
I. UE 2940 DATA 8d9903a96e8d94032056e430b4 
fVS 2950 DATA a20bade7028d9403ade8028d95 
i; Oy 2960 DATA 0320671430c74ca£14a254a90b 
IB 2970 DATA a0f420bceea24da915a0934cbc 
fXM 2980 DATA eea52a290cc904f009c908f001 
AV 2990 DATA 60a9803002a9008d0e0ba9028d 
DR 3000 DATA 0c0ba9c08d0d0ba00160ae0c0b 
|; ¥X 3010 DATA 8604ae0d0b860560ee0c0bd012 
GK 3020 DATA ee0d0bl00cae0d0be0d0d006a2 
OZ 3030 DATA d88e0d0b602clel5602c0e0bl0 
RV 3040 DATA 16 20b70cae0c0bac0d0be8d001 
|JS 3050 DATA C88e00c08c01c020290ca00160 
MZ 3060 DATA 4820b70c20131568a000910420 
Vt 3070 DATA 290c201el530e9a0c06020b70c 
3080 DATA 201315a504cd00c0a505ed01c0 


PD 3090 DATA b00da000bl0420290c201el5a0 
SC 3100 DATA 016020290ca08860e£1438156d 
MV 3110 DATA I556150f0ffd0c0080 


Witold Scluk 



"Klocki" to gra logiczna będąca skróconą wersją zna 
nego "Tetrlsa" Dla łych, którzy nie wiedzą na czym ona 
polega kilka słów na temat zasad gry. 

Podstawową zasadą jest ustawienie Jak największej 
Ilości spadających w studni klocków. Klocki te spadają 
w dół, na co nie mamy wpływu, natomiast można Je 
przesuwać w Hali poziomej, a także obracać o dzie¬ 
więćdziesiąt stopni. Tytuł oryginału wskazuje na liczbę 
cztery, która określa Ilość kwadratowych elementów 
składających się na poszczególne klocki. 

Klocki rozpoczynają spadanie w losowym miejscu 
najwyższego punktu studni i są obrócone pod różnymi 
kątami. Szybkość spadania klocka Jest zależna od Ilo¬ 
ści ustawionych Już klocków 1 rośnie w trakcie gry. 
Aktualna prędkość (poziom gry) wyświetlona Jest w do¬ 
lnej części okna gry. W prawym dolnym rogu wyświet¬ 
lony jest klocek, który będzie spadał jako następny. Po 
zapełnieniu dokładnie całej Unii zostaje ona skasowa 
na, a wszystkie klocki znajdujące się nad nią zostają 
przesunięte o Jedną pozycję w dół. Za ustawienie klo¬ 
cka przyznawany jest jeden punkt, a za zlikwidowanie 
llnu - dziesięć. Ilość punktów zdobytych przez grające¬ 
go wyświetlona jest w lewym dolnym rogu pola gry. 
Sterowanie grą odbywa się za pomocą klawiatury, 
a znaczenie klawiszy Jest następujące: 

• + i * - przesuwanie klocka w lewo 1 prawo. 

• SHIFT - obrót klocka o dziewięćdziesiąt stopni 
w prawo. 

• SPACE - chwilowe zwiększenie prędkości spadania 
klocka (działa do momentu puszczenia klawisza). 

• CLE AR - przerwanie gry 1 powrót na planszę tytuło¬ 
wą. 

• ESC - opuszczenie gry. , 


26 









1J 

1000 

REM 

r__ _ * 

RF 

1670 

DATA 

CS 

1002 

REM 

: KLOCKI : 

RA 

1680 

DATA 

VB 

1004 

REM 

: autor: Dariusz Zolna : 

YA 

1690 

DATA 

yy 

1006 

REM 

: (c) 1992 Tajemnice ATARI : 

DI 

1700 

DATA 

jp 

1008 

REM 

k _ * 

HP 

1710 

DATA 

SC 

1010 

DATA 

££££0088a58e208d8ca9££8d£c 

OZ 

1720 

DATA 

PL 

1020 

DATA 

02202e8cadfc02c91cd0034c5a 

; j II : 

1730 

DATA 

OK 

1030 

DATA 

89a514291fd012a910a21620d0 

OG 

1740 

DATA 

OA 

1040 

DATA 

8ca004blb0498091b08810£720 

FP i 

1750 

DATA 

IB 

1050 

DATA 

6589d0dla004a91091b08810fb 

PG ; 

1760 

DATA 

ts 

1060 

DATA 

C6bla0fe91b0a90ea20120d08c 

OM 

1770 

DATA 

CB 

1070 

DATA 

a5b038e92885b2a5ble90085b3 

Is 

1780 

DATA 

sx 

1080 

DATA 

a9328d00d2a2128a29010a0a0a 

XX 

1790 

DATA 

BX 

1090 

DATA 

09e08d01d2a009a93f91b0e013 

ii HJ 

1800 

DATA 

KP 

1100 

DATA 

b004a90091b2 8810f18a4 8a200 

I AK : 

1810 

DATA 

ss 

1110 

DATA 

a92820ef8ca202a92820ef8ca5 

BO 

1820 

DATA 

OP 

1120 

DATA 

14186903c514d0£c68aacal0c6 

i LO 

1830 

DATA 

XV 

1130 

DATA 

a009 a 9 0091b2 8810£bad0ad2 2 9 

FI 

1840 

DATA 

zz 

1140 

DATA 

07c907f0f78d018d20708ba914 

JA 

1850 

DATA 

mq 

1150 

DATA 

8d038da9008d048d202e8ca900 

RA 

1860 

DATA 

RA 

1160 

DATA 

8d00d28d01d28dfd8c20058cad 

TW 

1870 

DATA 

KX 

1170 

DATA 

f102f015adf202cd058df00d29 

OD 

1880 

DATA 

SI. 

1180 

DATA 

3fc9069007c908b003205b8aad 

DX 

1890 

DATA 

cc 

1190 

DATA 

fc02c936d006205d8c4c0088c9 

MA 

1900 

DATA 

CR 

1200 

DATA 

Icd0034c5a89206589d0080d06 

JS 

1910 

DATA 

OF 

1210 

DATA 

8df00320ae89adf102£009ad£c 

m 

1920 

DATA 

MS 

1220 

DATA 

02293fc921f005ce028dl009ad 

GM 

1930 

DATA 

Im 

1230 

DATA 

038d8d028dee£c8c20b08aa90e 

BO 

1940 

DATA 

PU 

1240 

DATA 

a20220d08ca00fblb0c980d009 

JO 

1950 

DATA 

DC 

1250 

DATA 

202e8c205d8c4c00888810eea9 

UC 

1960 

DATA 

2G 

1260 

DATA 

8e8dfd8c20058cadf2028d058d 

RP 

1970 

DATA 

yy 

1270 

DATA 

ad078d8d068da9f£8d£2024cb8 

yy 

1980 

DATA 

JQ 

1280 

DATA 

88a9ff8dfc02205d8c6c0a00ad 

BP 

1990 

DATA 

■&I 

1290 

DATA 

0fd229084a4a4a8d078d60a5b0 

BP 

2000 

DATA 

ZH 

1300 

DATA 

38e92885b2a5ble90085b3a009 

m 

2010 

DATA 

LN 

1310 

DATA 

blb291b08810f9a5b038e92885 

yo 

2020 

DATA 

BG 

1320 

DATA 

b0a5ble90085bla5b238e92885 

MV 

2030 

DATA 

OZ 

1330 

DATA 

b2a5b3e90085b3e8e01490d8a9 

RE 

2040 

DATA 

vz 

1340 

DATA 

0a20358c4c2c8ba9c88d00d2a9 

BX 

2050 

DATA 

PD 

1350 

DATA 

ea8d01d2a9008d298d8d2a8da0 

: KA 

2060 

DATA 

W 

1360 

DATA 

0788b9098dcd298d90038d298d 

KZ 

2070 

DATA 

CW 

1370 

DATA 

b90a8dcd2a8d90038d2a8d8888 

FD 

2080 

DATA 

OD 

1380 

DATA 

10e6a20ea00788b9098d9dl98d 

OB 

2090 

DATA 

CP 

1390 

DATA 

b90a8d9d218dca888810e£a20e 

m 

2100 

DATA 

XX 

1400 

DATA 

a00788ad2a8d38fd218d99098d 

SB 

2110 

DATA 

PC 

1410 

DATA 

bdl98d990a8dca888810eba900 

RP 

2120 

DATA 

BI 

1420 

DATA 

8d£e8ca007889848b90a8dl86d 

■RK 

2130 

DATA 

BO 

1430 

DATA 

£c8c6902aab9098dl86d£b8c69 

BM 

2140 

DATA 

FP 

1440 

DATA 

0e20d08ca000blb0£005a9ff8d 

m 

2150 

DATA 

BP 

1450 

DATA 

£e8c68a88888l0d7ad£e8cd001 

'm 

2160 

DATA 

GJ 

1460 

DATA 

60a20ea00788bdl98d99098dbd 

W 

2170 

DATA 

BL 

1470 

DATA 

218d990a8dca888810ef60a20£ 

OJ 

2180 

DATA 

W, 

1480 

DATA 

a001c906d004a20da0f£8ef£8c 

WF 

2190 

DATA 

ir 

1490 

DATA 

8c008da9008dfe8ca007889848 

xo 

SB 

2200 

DATA 

pB 

1500 

DATA 

b90a8dl86dfc8c6902aab9098d 

2210 

DATA 

OG 

1510 

DATA 

186d£b8c6df£8c20d08ca000bl 

GO 

2220 

DATA 

BO 

1520 

DATA 

b0f005a9ff8d£e8c68a8888810 

PB 

2230 

DATA 

BX 

1530 

DATA 

d6adfe8cf00160ad£b8cl86d00 

JI 

2240 

DATA 

Bv 

1540 

DATA 

8d8d£b8c60a9008d£e8ca00788 

ro 

2250 

DATA 

- IB 

1550 

DATA 

9848b90a8dl86d£c8c6902aab9 

i AZ 

2260 

DATA 

BX 

1560 

DATA 

098dl86d£b8c690e20d08ca000 

XX 

2270 

DATA 

£« 

1570 

DATA 

blb0£005a9££8dfe8c68a88888 

PN 

2280 

DATA 

SF 

li 

1580 

DATA 

10d7adfe8cd00160ce£c8ca980 

QV 

2290 

DATA 

1590 

DATA 

8d£d8c20058ca90120358cee04 

JX 

2300 

DATA 

KJf 

1600 

DATA 

8dad048dc9 32 902ba9008d04 8d 

NQ 

2310 

DATA 

BŁ 

MC 

1610 

1620 

DATA 

ad038d38e902c902b002a9028d 

: KM 

2320 

DATA 

DATA 

038da90ea21620d08ca91438ed 




IC 

1630 

DATA 

03 8d4 a0910a00091b®8d 8 £ 8ea 9 




OB 

1640 

DATA 

0ea20120d08ca213a9ff8d£e8c 




ys 

1650 

DATA 

a009blb0c980£005a9008d£e8c 





1660 

DATA 

8810f2adfe8cf0034c71898a48 





a200a92820e£8c68aacal0 d a 9 
648d00d2a00£8c01d2202e8c88 
10£7ad018da8b92b8d8d088dad 
018d0a0a0al8693285b4a90018 
698d85b5a007blb499098d8810 
£8a9008d£c8ca90938ed088d8d 
fe8cad0ad2290£c90ab0f7cdfe 
8cb0e98dfb8cad0ad22907c907 
£0£78d018d0a0a696a85b2a900 
698d85b3a916a21520d08ca201 
a001blb291b08810f98a48a200 
a92820e£8ca202a90220e£8c68 
aacal0e2ad0ad22903a8984820 
b88968a888l0£660a007889848 
b90a8dl86d£c8c6902aab9098d 
186d£b8c690e20d08ca000ad£d 
8c91b068a8888810db60a514c5 
14£0£c6048a910a21620d08c68 
aaa004blb01869019lb099918e 
C91a900aa91091b099918e8810 
e8cad0e360a9a685b2a98e85b3 
a90da20020d08ca217a00bblb2 
91b08810f98a48a200a92820e£ 
8ca202a90c20ef8c68aacal0e2 
60a98685b4a98d85b5a9a685b2 
a98e85b3a90da20020d08ca217 
a00bblb091b2blb491b08810£5 
8a48a200a92820ef8ca202a90c 
20ef8ca204a90c20ef8c68aaca 
10d76018655885b0a900655985 
blcal00160a5b018692885b0a5 
bl690085bl4cdb8cl875b095b0 
a90075bl95bl60000000000000 
00001400000000000000000000 
00000000000000000000000000 
00000000000000000000000000 
00000002020203020201010000 
01010102010000010001010201 
01000200000101010000000100 
02000300000001000201020100 
01010002010200000100000101 
0100004 9cb00004bcb00004 9c 9 
00590059004f00cb004900cc49 
4 f 4 b4 c £ C000000000000000000 
00fcfcd9d9d900c959c9d9d94b 
fcfcd959d900595959d959d9fc 
£cd9d9d94fcb59cbd9d9d9fcfc 
00000000000000000000£ c f c00 
00637a796c691a0000fcfc0000 
0000000c00000000fcfc2e616a 
6b726f74737a79fcfc00003465 
747269 730000£c fC0000000000 
0000000000fcfc525252525252 
52525252£c£C00000000000000 
000000fc fC00002175746f721a 
0000fcfc002461726975737a00 
00£cfc000000003a6f 6 c 6 e 6 l 00 
f c £C 00000000000000000000 fc 
fc236f70797269676874lafcfc 
34212a252d2e29232500fcfc21 
342132290011191912fcfc0000 
0000000000000000fcc9d5d5d5 
d5d5d5d5fcd5d5cf5930756e6b 
74791afc0000d959101al01010 
1010fc0000d9cb555555555555 
55fc5555cce002el020088 


Dariusz Żołna 
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taje 



Tekst, ktorego tłumaczenie znaj¬ 
duje się poniżej, przywędrował do 
mnie z USA na dyskietce z progra 
mami Public Domain Autorem tego 
monologu jest anonimowy amery¬ 
kański programista prawd opodo 
bnie związany z firmą Motorola Za 
uroczony stylem tej wypowiedzi, 
pokazałem tekst Naczelnemu i tak 
oto powstała jego polska wersja 

Jarosław Syrylak 

Motto: Prawdziwi programiści 
nie używają Pascala" 

W dawnych, dobrych czasach 
zwanych "Złotą Erą" komputerów, 
łatwo było odróżnić mężczyzn od 
chłopców (wtedy mówiło się od 
dzielić prawdziwych męzczyzn od 
maminsynków") W tym okresie 
prawdziwymi mężczyznami byli cl. 
którzy rozumieli programowanie 
komputerów, zaś maminsynkami 
cl. którzy nie rozumieli Prawdziwy 
programista mówił rzeczy typu 
"DO 10 1=1,10* i "ABEND" (oni na¬ 
prawdę mówili wielkimi literami'), 
a reszta świata mówiła "komputery 
są dla mnie zbyt skomplikowane" 
1 "nie potrafię spoufalić się z kom 
puteraml - są zbyt bezosobowe" 
Prawdziwi mężczyźni nie "spoufala- 
ją się" z niczym i nie boją się bez¬ 
osobowości! 

Lecz. Jak to zwykle bywa, czasy 
się zmieniają. Patrzymy dziś na 
świat, w którym starsze panie uży¬ 
wają piecyków mikrofalowych wy¬ 
posażonych w komputery, dwuna¬ 
stoletnie dzieciaki leją prawdzl 
wyeh mężczyzn w grach typu "Aste- 
roids" 1 "Pac-Man" 1 każdy może ku¬ 
pić, a nawet zrozumieć, swój włas¬ 
ny komputer osobisty Prawdziwym 
programistom zagraza wyparcie 
przez maturzystów z mikrokompu¬ 
terami. 

Jak widać. Istnieje wyraźna po¬ 
trzeba pokazania różnicy pomiędzy 
typowym graczem komputerowym 
z ogólniaka, a prawdziwym progra¬ 
mistą. Kiedy różnica ta stanie się 


Jasna, dzieciaki dostaną materiał 
do przemyślenia i wzór do naślado¬ 
wania. Łatwiej także będzie wytłu 
maczyć pracodawcom prawdziwych 
programistów, dlaczego pomyłką 
jest zastępowanie tychże pac-mano- 
wymi championami, którym nie 
trzeba tyle płacić 

1. Języki 

Najprostszą metodą oddzielenia 

prawdziwego programisty od tłumu 
jest zauważenie, jakiego języka pro¬ 
gramowania używa Prawdziwi pro¬ 
gramiści stosują FORTRAN, ma¬ 
minsynki używają Pascala Nickla 
us Wirth, twórca Pascala udzielił 
kiedyś wywiadu podczas którego 
zapytano go jak wymawia swoje na 
zwisko? Odpowiedział, ze są tu 
dwie możliwości albo wymawia się 
je Jak nazwisko, czyli wirt (w oryg 
Veert - przyp tłum ). albo jak war 
tość czyli wert (w oryg. Worth 
przyp. tłum.) Każdy może natych¬ 
miast sam domyślić się po tej repli¬ 
ce, ze Nicklaus Wirth jest mamin¬ 
synkiem Jedynym mechanizmem 
jaki tolerują prawdziwi program! 
śei jest taki jaki zaimplementowa 
no w kompilatorach FORTRAN-G 
1 FORTRAN H dla komputera 
IBM/370. Prawdziwi programiści 
nie potrzebują do wykonywania 


swojej pracy wszystkich tych wy 
szukanych mechanizmów są na¬ 
prawdę szczęśliwi, mając dziurkar¬ 
kę kart, kompilator języka FOR¬ 
TRAN IV i puszkę piwa 

• Prawdziwi programiści realizują 
przetwarzanie list w Języku 
FORTRAN 

• Prawdziwi programiści realizują 
operacje na tekście w języku 
FORTRAN 

• Prawdziwi programiści realizują 
obliczenia (Jeżeli w ogóle zajmu¬ 
ją się obliczeniami) w języku 
FORTRAN. 

• Prawdziwi programiści tworzą 
programy sztucznej inteligencji 
w Języku FORTRAN 

Jeżeli którejś z tych rzeczy nie 
możesz zrobić w Języku FORTRAN 
zrób ją w asemblerze. Jeżeli zaś nie 
da się jej zrobić w asemblerze oz¬ 
nacza to, ze nie warto sobie nią za¬ 
wracać głowy 

2. Programowanie 
strukturalne. 

W ciągu ostatnich kilku lat teore¬ 
tycy informatyki doszli do czegoś, 
co nazwali "programowaniem stru¬ 
kturalnym" Twierdzą, że programy 
są o wiele bardziej zrozumiałe, je¬ 
żeli programista używa specjalnych 
konstrukcji językowych. Oczywl- 
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ścle, od dawna nie mogą dojść do 
porozumienia o jakie konstrukcje 
im chodzi, więc przykłady, których 
używają, aby pokazać swój punkt 
widzenia niezmiennie trafiają na 
łamy takich, czy innych czasopism, 
nikogo nie przekonując! 

Kiedy skończyłem szkołę, myśla¬ 
łem, ze Jestem najlepszym progra 
mis tą na swiecie Umiałem napisać 
program, który nie dawał się poko 
nać w grze w kółko i krzyzyk, uży¬ 
wałem pięciu różnych Języków pro¬ 
gramowania i potrafiłem napisać 
program o długości 1000 wierszy, 
który działał (naprawdę!). I wtedy 
wkroczyłem w prawdziwy świat. 
Moim pierwszym zadaniem było za¬ 
poznanie się z programem napisa 
nym w Języku FORTRAN, który 
miał długość 200000 wierszy, zro¬ 
zumienie go i przyspieszenie Jego 
działania. Każdy prawdziwy pro 
gramista powie, ze całe programo¬ 
wanie strukturalne na świecie nie 
może pomóc w rozwiązaniu takiego 
problemu potrzebny jest talent. 

Kilka obserwacji, związanych 
z prawdziwymi programistami 
i programowaniem strukturalnym 

• Prawdziwi programiści nie boją 
się używać instrukcji GOTO 

• Prawdziwi programiści mogą 
napisać pętlę DO na pięć stron, 
nie tracąc wątku 

• Prawdziwi programiści lubią 
stosować Instrukcje IF - one czy¬ 
nią kod ciekawszym 

• Prawdziwi programiści piszą 
programy, które same się mody¬ 
fikują. zwłaszcza wtedy, kiedy 
pozwala to oszczędzić 20 nano- 
sekund w środku krótkiej pętli 

• Prawdziwi programiści nie po¬ 
trzebują komentarzy - kod Jest 
wystarczająco przejrzysty 

• Dzięki temu ze FORTRAN nie 
ma instrukcji strukturalnych ty¬ 
pu IF. REPEAT UNTIL, ani 
np CASE, prawdziwi program! 
ści nie muszą martwić się ich 
nieużywaniem W zamian uzy¬ 
skują pożądane rezultaty, stosu¬ 
jąc odpowiednio rozkazy GOTO 

Wiele pisało się ostatnio także 
o strukturach danych. AbstrakcyJ 
ne typy, struktury, wskaźniki, listy 
i łańcuchy siały się popularne 
w pewnych kręgach. Wirth (wspo¬ 
mniany już maminsynek) napisał 


nawet książkę w której usiłuje nas 
przekonać, ze można napisać pro¬ 
gram oparty' na strukturach da 
nych. Jak wiadomo jedyną pożyte¬ 
czną strukturą Jest tablica Łańeu 
chy, listy, rekordy i zbiory są tylko 
szczególnymi przypadkami tablic 
i powinny być tak właśnie trakto¬ 
wane, bez zaśmiecania Języka pro¬ 
gramowania wszelkiego rodzaju 
bzdurami. We wszystkich tych 
śmiesznych typach danych najgor 
sze Jest to, że musi się Je deklaro¬ 
wać; w każdym prawdziwym języku 
programowania typ zmiennej ozna¬ 
cza się pierwszą literą jej sześcio- 
znakowej nazwy 

3. Systemy operacyjne. 

Prawdziwi programiści nie uży¬ 
wają systemu CP/M który jest ra¬ 
czej zabawką niz prawdziwym sy¬ 
stemem operacyjnym Nawet star¬ 
sze panie l dzieci z podstawówki 
mogą zrozumieć zasady używania 
CP/M 

Unlx jest oczywiście bardziej 
skomplikowany typowy użytkow¬ 
nik systemu nigdy nie może spa¬ 
miętać jaką komendę wyświetlania 
wywołać w tym tygodniu, ale szcze 
rze mówiąc, Unlx to raczej rodzaj 
gry komputerowej. Nikt nte wyko¬ 
nuje prawdziwej pracy pod kontro¬ 
lą Unlx a; robi się tylko kawały 
w slect UUCP 1 pisze gry tekstowe 
oraz prace naukowe. 


Nte, prawdziwy programista uży¬ 
wa systemu OS/370 Dobry progra 
mlsta znajduje opis błędu IJK3051 
w podręczniku użytkownika JCL 
Wybitny programista potrafi napl 
sać program bez zaglądania do 
podręcznika użytkownika systemu 
Genialny programista znajduje 
błąd w sześclomegabajtowym, szes¬ 
nastkowym wydruku pamięci, bez 
używania kalkulatora 

OS to niezapomniany system 
operacyjny Można np zniszczyć 
efekty wielu dni pracy przez umie¬ 
szczenie jednej spacji w złym miej¬ 
scu Najlepiej kontaktować się z sy¬ 
stemem przez dziurkarkę kart. Nie¬ 
którzy ludzie zarzekają stę, ze na 
OS/370 działa system z podziałem 
czasu, ale po dogłębnej analizie 
problemu doszedłem do przekona 
nla, że są w błędzie 

4. Narzędzia 
programistyczne. 

W teorii prawdziwy programista 
może uruchamiać swoje programy 
po zakodowaniu Ich na płycie czo¬ 
łowej komputera. Kiedyś, gdy kom¬ 
putery miały Jeszcze płyty czołowe 
czasem tak się robiło. Typowy pra 
wdziwy programista wprowadza! 
do pamięci procedury ładowania 
gdy zdarzyło stę, że program znisz¬ 
czył kawałek systemu operacyjne¬ 
go Legenda głosi że Seymore 
Cray, twórca superkomputera Cray 
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I 1 większości komputerów firmy 
Control Data, osobiście wstukał 
pierwszy system operacyjny dla 
komputera CDC7600. Nie trzeba 
chyba wyjaśniać, ze Seymore Jest 
prawdziwym programistą. 

W niektórych firmach przetwa¬ 
rzanie tekstu nie wymaga Juz dzie¬ 
sięciu inżynierów, obsługujących 
dziurkarkę 029. Dzisiaj prawdziwi 
programiści wykonują swoją pracę 
przy pomocy "edytorów tekstu*. 
Wielu ludzi uważa, że najlepsze 
edytory tekstu powstają w centrum 
badawczym firmy Xerox w Pało Alto 
dla komputerów Alto i Dorado. Nie¬ 
stety, żaden prawdziwy programi¬ 
sta nie będzie używał komputera 
z systemem operacyjnym, zwanym 
SmallTalk i rozmawiał (ang. talk 
oznacza rozmawiać - przyp. tłum ) 
z komputerem za pomocą myszy 

Kłopot z takimi edytorami polega 
na tym, ze prawdziwi programiści 
uważają zasadę "widziały gały, co 
brały" (w niektórych pismach nazy 
waną WYSIWYG) za niesłuszną, po 
dobnie, jak w stosunku do kobiet. 
Nie, prawdziwy programista potrze¬ 
buje edytora, pracującego w opar¬ 
ciu o Inną zasadę: "sam się o to 
prosiłeś", edytora skomplikowane 
go, tajemniczego, wszechmocnego, 
złośliwego 1 niebezpiecznego. 

Prawdziwi programiści wolą 
w większości wypadków bezpo¬ 
średnie wprowadzanie kodu binar ¬ 
nego niż robienie poprawek w tek¬ 
ście źródłowym programu. Robią to 
tak często, że większość progra 
mów ma niewiele wspólnego z te¬ 
kstem początkowym. W wielu przy¬ 
padkach tak mało, że można po¬ 
wiedzieć, lż tekst źródłowy nie Ist¬ 
nieje. Kiedy trzeba poprawić taki 
produkt, nikt nie odważy się zlecić 
tej pracy komuś, kto nie Jest pra¬ 
wdziwym programistą - żaden ma¬ 
minsynek nie wiedziałby nawet, od 
czego zacząć. Tę technikę nazywa¬ 
my utajnianiem naszej pracy. 

Oto kilka narzędzi programisty¬ 
cznych NIE używanych przez pra¬ 
wdziwych programistów 

• Preprocesory języka FORTRAN 

• Debuggery, pracujące na tekście 
źródłowym Wystarczą wydruki 
pamięci. 


• Kompilatory, które sprawdzają 
zakres zmiennych. Zabijają one 
Inicjatywę 1 pomysłowość oraz 
nie pozwalają na modyfikację 
systemu operacyjnego przez za¬ 
stosowanie ujemnych Indeksów 

• Archiwa tekstów źródłowych. 
Lepiej przechowywać je na kar¬ 
tach perforowanych 

5. Prawdziwy programista 
przy pracy. 

Żaden prawdziwy programista 
nie chciałby zostać znaleziony mar¬ 
twy nad programem obliczeniowym 
w Języku COBOL Prawdziwy pro¬ 
gramista lubi zadania najwyższej 
ważności 

• Prawdziwi programiści pracują 
w Los Alamos National Labora 
tory, pisząc symulacje bomby 
atomowej dla komputera Cray 1. 

• Prawdziwi programiści pracują 
dla Narodowej Agencji Bezple 
czeństwa, dekodując rosyjskie 
transmisje. 

• To dzięki wysiłkom tysięcy pra 
wdzlwych programistów pracu¬ 
jących dla NASA, nasi chłopcy 
mogli polecieć na księżyc przed 
Rosjanami. Nikt w takim wypad 
ku nie zaufa programowi w Języ¬ 
ku Pascal. 

• Prawdziwi programiści pracują 
dla firmy Boeing, projektując sy¬ 
stemy operacyjne dla pocisków 
Crulse. 

Wielu prawdziwych programi¬ 
stów pracuje dla rządu Stanów 
Zjednoczonych, Jednak ostatnio 
nad horyzontem zaczęła się formo¬ 
wać czarna chmura. Wygląda na to. 
ze jakieś wysoko postawione ma¬ 
minsynki z Departamentu Obrony 
zdecydowały, że wszystkie progra¬ 
my wojskowe powinny być pisane 
w zunifikowanym Języku, zwanym 
ADA. Początkowo wyglądało na to, 
ze Jest to oręż wymierzony w pra¬ 
wdziwych programistów - Język 
strukturalny, z typami danych itd 
Na szczęście po pewnej adaptacji, 
stał się wystarczająco atrakcyjny, 
bardzo zwięzły, wyposażony w me¬ 
chanizmy dostępu do pamięci 1 mo¬ 
żliwość modyfikacji systemu opera- 
cyjnego. Poza tym Edgar Dijkstra 
go nie lubi! (Jak zapewne wiecie na¬ 
pisał on książkę pt "Szkodliwe GO¬ 
TO", będącą kamieniem milowym 
w metodologii programowania) 
A w ogóle, to zdeterminowany pra¬ 


wdziwy programista może napisać 
programy fortranowe w dowolnym 
Języku. 

Prawdziwy programista może 
pójść na kompromis ze swoimi za¬ 
sadami 1 pracować nad czymś bar 
dziej trywialnym niż sposoby nisz¬ 
czenia życia, o Ile praca ta przynosi 
odpowiednie zarobki. Paru pra 
wdzlwych programistów pracuje 
w firmie ATARI, tworząc gry kom¬ 
puterowe (oczywiście, nie grają 
w nie prawdziwy programista za¬ 
wsze umie pokonać maszynę - 
gdzie tu więc współzawodnictwo?). 
Kilku innych zajmuje się grafiką 
komputerową, chociaż nie znajduje 
ona większego zainteresowania. 
Dobrą stroną tej pracy Jest to, że 
wykonuje się ją w FORTRAN-le, 
można więc uniknąć obrzydliwego 
COBOL-a. . 


6. Środowisko naturalne 
prawdziwego programisty. 

Topowy prawdziwy programista 
żyje przed terminalem komputera 
Wokół terminala znaleźć można: 


• listingi wszystkich programów, 
nad którymi kiedykolwiek pra 
cował, rozrzucone przypadkowo 
na każdej płaskiej powierzchni, 

• około oół tuzina filiżanek z nle- 
dopltą kawą, czasem wypełnio¬ 
nych petami, lub Innymi śmie¬ 
ciami; 

• podręcznik użytkownika syste¬ 
mu operacyjnego JCL, otworzo¬ 
ny na Jakiejś Interesującej stro¬ 
nie; 

• przyklejony do ściany kalendarz 
na rok 1969 z psem Snoopy, wy 
drukowany na drukarce znako¬ 
wej; 





• schemat blokowy w szufladzie - 
pozostałość po poprzednim 
użytkowniku biura (prawdziwy 
programista pisze programy, 
a nie dokumentację). 

Prawdziwy programista jest 
w stanie pracować 30, 40 a nawet 
50 godzin bez przerwy W rzeczywi¬ 
stości, nawet woli pracować w taki 
sposób Jeśli nie gonią go terminy, 
przejawia tendencje do rozważania 
wielu aspektów jakiegoś niewielkie¬ 
go problemu przez pierwsze 9 tygo¬ 
dni pracy, a potem kończy całość 
projektu w ostatnim tygodniu, pod¬ 
czas 50-godzlnnego maratonu To 
nie tylko robi wrażenie na Jego 
agencie, który prawie załamał się, 
nie widząc postępów w pracach, 
ale także Jest dobrym wytłumacze¬ 
niem dla nlenaplsanla dokumenta¬ 
cji. Ogólnie: 

• żaden prawdziwy programista 
nie pracuje w normalnych godzi¬ 
nach pracy: 

• prawdziwy programista nie nosi 
krawata, 

• prawdziwy programista nie nosi 
modnych butów; 

• prawdziwy programista przy¬ 
chodzi do pracy w czasie prze¬ 
rwy obiadowej; 

• prawdziwy programista może, 
ale nie musi znać Imienia swojej 
żony: na pewno natomiast zna 
na pamięć całą tablicę ASCII! 

7. Przyszłość. 

Ostatnia generacja programistów 
bardzo różni się od swoich poprze¬ 
dników Większość młodych pro¬ 
gramistów nigdy nie widziała duże 
go komputera, wielu z nich nie po¬ 
trafi nawet liczyć w systemie szes¬ 
nastkowym bez pomocy kalkulato¬ 
ra Absolwenci szkół są chronieni 
przed realiami programowania 
przez debuggery symboliczne, edy¬ 
tory tekstu które liczą nawiasy 
1 "przyjazne dla użytkownika’ syste¬ 
my operacyjne Najgorsze jest to, że 
wielu młodych naukowców robi ka¬ 
riery w dziedzinie informatyki, nie 
znając nawet języka FORTRAN. 
Czyzby nadchodziła era uzytkowni 
ków UNDC-a 1 programistów Pasca¬ 
lowych? 

Z własnego doświadczenia mogę 
powiedzieć że przyszłość maluje 
się w Jasnych barwach. Ani OS/370 
ani FORTRAN nie wykazują naj 


mniejszych oznak wymierania (mi¬ 
mo wszystkich wysiłków mamin¬ 
synków na całym śwlecle!). Nawet 
najbardziej podstępne sztuczki - 
jak wprowadzenie programowania 
strukturalnego do Języka FOR¬ 
TRAN - zawiodły! Jasne, niektórzy 
producenci oferują kompilatory 
FORTRAN-a 77, ale każdy z nich 
ma możliwość powrotu do oryginal¬ 
nego FORTRAN-a 66, zęby kompi¬ 
lować pętle DO, Jak w piśmie stoi! 

Nawet Unlx nie musi być tak 
straszny jak mogłoby się wydawać. 
Ostatnia Jego wersja ma zalety sy¬ 
stemu operacyjnego, godnego pra¬ 
wdziwego programisty. Dwa różne 
1 podstępnie niekompatybilne Inter¬ 
fejsy użytkownika, bardzo skompli¬ 
kowany 1 tajemniczy sterownik 'wy¬ 
świetlania, pamięć wirtualna. . Je¬ 
śli się pominie jego strukturalność, 
to nawet Język C może być niezły! 
Nie ma kontroli typów danych, na¬ 
zwy zmiennych są siedmio- (dzie¬ 
sięciu-?, ośmlo-?) znakowe, no 1 te 
wskaźniki... Mniam! To tak. Jakby 
najlepsze fragmenty FORTRAN-a 
1 asemblera w jednym miejscu' 


Nie, przyszłość nie będzie taka 
zła Przez ostatnie kilka lat prasa 
pisze o tych komputerowych magi¬ 
kach, opuszczających mury uni¬ 
wersytetu Stanford, czy tez M.I.T. 
1 wchodzących w prawdziwy świat. 
Ponad wszelką wątpliwość, duch 
Prawdziwego Programisty żyje 
w tych młodych mężczyznach 1 ko¬ 
bietach Dopóki będą istnieć głupie 
zadania, kretyńskie Wędy 1 niereali¬ 
styczne plany - będą prawdziwi 
programiści gotowi wskoczyć i roz¬ 
wiązać problem, zostawiając doku¬ 
mentację na później. 


Niecił żyje FORTRAN! 


Annon Wersja skrócona: John 
Wilson i SonOfMotorola 



ogłaszają 


COMIESIĘCZNIE LOSOWANIE 
NAGRÓD PREMIOWTCH 

dla zamawiających gry i programy w L.K."Avalon". 
W każdym numerze TA będzie zamieszczany 
kupon, który upoważnia do wzięcia udziału 
w losowaniu. 

Co miesiąc 100 szczęśliwców, 

którzy przyślą oryginalny kupon wraz 
z zamówieniem (spis programów na ostatniej stronie), 
otrzyma jedną z zamawianych pozycji 

za darmo. 

Pozostałe zamówienia będą 
realizowane w normalnym trybie. 

Termin nadsyłania zamówień z kuponami z numeru 4 TA 
mija 31 czerwca. 























oferujemy dla Twojego Atari 


O ROB BO ■ wspaniała gra zręcznościowo-logi 
rana. Cena. 29.000 zł, 

□ MISJA, FRED 

■Zmagania komandosa w tajną MISJI, 

- Wędrówka z FREDEM przez pełną zaga 
dek i niebezpieczeństw krainę 

Cena zestawu: 39.000 zł, 

□ LASER MANIA, 

ROBBO KONSTRUKTOR 

Efektowna gra logiczna polegająca na poko¬ 
naniu Labiryntu komnat przy pomocy unuejęt 
nego sterowania promieniem lasera; 

■ Program użytkowy pozwalający na tworze¬ 
nie gotowych, samodzielnie działających gier 
Cena zestawu: 39.000 zł. 

□ AUTOMAT PERKUSYJNY 

doskonały do tworzenia "muzyczek” kom¬ 
puterowych. Sprzedawany wraz z instrukcją 
użytkownika. Cena programu: 42.000 zł. 
O SAPER gra strategiczna, 

Cena gry: 37,000 zł. 

□ A.D.2044 - wspaniała gra przygodowa 
z tekstem. 

Cena giy na dysku: 37.000 zł. 
Cena giy na kasecie: 39.000 zł. 

□ CHAOS MUSIC COMPOSER 

- pakiet zawiera program do komponowa 
ma, moduł odtwarzający (można go dolą 
czyć do własnych programów) oraz 
wyczerpującą instrukqę użytkownika. 

Cena pakietu 42000 zł 

□ PANTHER 

- wielofunkcyjny edytor tekstów pozwalają 
cy drukować po polsku na wszystkich 
popularnych drukarkach Sprzedawany tak 
że ze złączem MICROPRINT do drukarki 

Cena bez złącza: 42.000 zł 
Cena pakietu ze złączem: 220.000 zł 

□ HANSKLOSS 

gra przygodowo zręcznościowa Poszuki 
wania planów tajnej brom w bunkrze Wolf 
schanze. Cena gry: 37.000 zł. 

□ TRIX 

wciągająca gra zręcznościowe - logiczna. 
Niezły pomysł i dobre wykonanie. Recenzja 
TA 3/92. Cena gry-37 000 zł. 

Nąjlepuzy na "małe” Atari zestaw do 
programowania w Języku asemblera 

E QUICK ASSEMBLER 

□ BUG HUNTER 

O XI FRIEND edytor tekstów, tabela ko¬ 
dów , kalkulator i monitor pamięci 


Uregulowanie należności następuje przy od 
biorze przesyłki. Zamówienia na karbach po- 
otmnHi. które powinny zawierać wysrae- 
gółnieae md^n n«&iłk« (kaseta lub dysk) 
oraz dfjfcfcf lir wdirts zamawiającego, 


O Zestaw procedur bibliotecznych 
□ Podręcznik do wymienionych programów 
Cena zestawu: 62.000 zł 


Wymienione niżej programy nie powstały 
w naszej firmie. Zachęcamy jednak do ich 
zakupu 

□ MIECZEYALDGIRA przygodowa gra fan 

tasy z doskonałą muzyką Cena 39,000 zł 

O BATTLESHIPS-ktoznasniegrałw"okrę 
ty"? Tutaj zasady te same, lecz przeciwnik 
i oprawa znacznie lepsza Cena 39.000 zł. 

□ TacTie - gra logiczna, recenzja TA 2/92. 

Cena 39.000 zł. 

O KOLONY gra ekonomiczna, recenzja 
TA 2/92, Cena 39000 zł. 

U GEOGRAFIA - pro6ty program edukacyjny 
obejmujący niektóre zagadnienia geografii go¬ 
spodarczej Polski. Cena 35000 zł 

O ORTOGRAFIA - któż nie ma z nią kłopotów? 
Ten program może pomóc i wiele nauczyć. 

Cena 39000 zł, 

O VIDEOGRAPH proste narzędzie do two¬ 
rzenia czołówek filmów VIDEO wraz z m 
_ stnikcją użytkownika. Cena 43.000 zł. 

O KULT - najnowsza gra zręcznościowa Po 
mysł jakby znany (ZYBEX), ale wykonanie 
o wiele lepsze Cena 42.000 zł 

□ MÓZG PROCESOR - wznowienie znanej 

giy tekstowej Cena 42000 zł 

O MASTER HEAD doskonała gra logiczna 
z kilkunastominutową muzyką 

Cena 42.000 zł, 

□ RODERIC dawno zapowiadane przygody 
rycerza w starym zamczysku. Cena 39 000 zł 

O BERTYX - zmagania z wrogim komputerem 
na planecie BERTYX. Cena 39.000 zł 
D OPERATION BLOOD - Krwawe starcie 
z niezliczoną ilością przeciwników, (Jakby 
znajome Operation Wolf) 

Tylko na dyskietce! Cena 40 000 z! 

O MONSTRUM - popularny robal w nowej 
oprawie. Cena 40 000 zł. 

E. SKARBNIK gra logiczna Cena 40000 z 

□ I. Q MASTER gra zręcznośoowo- 
logiczno-edukacyjna. Cena 40.000 zł 

□ HUMANOID wspaniała gra zręcznościowi: 

Cena 42.000 zł 

O PONG gra zręcznościowa Cena 40.000 zł 

□ TANKS ■ walka czołgów w labiryncie 

Cena 40000 zł 
PRZYJEMNEJ ZABAWY! 

prosimy kierować do: 

L.K. AVALON 
skr. poczt. 46 
38-100 Strzyżów 
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